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ABSTRACT 


This thesis presents the prototype for a decision support system which permits 
repeated formulation and solution of the Marine Corps staffing allocation problem 
under various user-controlled policy scenarios. The system allows the decision maker 
to vary the eligibility criteria used to determine who may be transferred as well as to 
adjust the relative priorities of two objectives: minimize relocation costs and maximize 
“fit” as defined by the Marine Corps. The user may also set a minimum acceptable 
“aspiration level” for the total fill of all billets. Based on the eligibility requirements 
which are input by the user, the system extracts data on individual Marines and the 
jobs that need to be filled, and matches people to billets using a set of matching rules 
developed bv the Marine Corps. The resulting matches are then transformed into a 
Capacitated transshipment network for solution in a special commercial optimization 
software package. The network formulation models a multiobjective allocation 
problem using optimization techniques to permit adjustment of some of the objective 
priorities. After the solution is presented to the decision maker, he may change the 
relative priorities of the relocation cost and fit objectives, set an aspiration level for the 
total fill, or change the rules used to determine who may be transferred. The user then 
has the option of reformulating and re-solving the problem with the new objective 
priorities or aspirations, or re-starting the entire problem based on the new eligibility 
rules. Testing of the system on all Marine Corps aviation officers, who constitute 
about 35 percent of the total personnel, suggests that the concept is feasible to 
implement for the entire Marine Corps, provided that certain enhancements 


recommended in the thesis are implemented. 
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I. INTRODUCTION 


The United States Marine Corps does not have an integrated system for 
evaluating the impact of changes in its policies or funding on manpower issues. 
Presently, any queries regarding the effect of some policy proposal or budgetary 
constraint on manning levels in the Marine Corps are handled on an ad hoc basis. 
This involves time-consuming sorting through data files to develop appropriate tests; 
however the results may not provide a clear or reliable picture of the effect of the 
proposal on other aspects of manpower allocation and assignment. 

The purpose of this thesis is to develop the prototype for a manpower decision 
support system which can assist Marine Corps policy makers in evaluating the impact 
on officer staffing of tradeoffs among fill, fit, dollar costs, and changes in vanious 
assignment and allocation-related policies. Specifically, the model is designed to 
demonstrate the feasibility of the concept of using available data bases and software in 
a flexible network assignment model to measure the effect of changes in policy and 
budgetary constraints on the ability to staff the Marine Corps to some desired level of 
fill and fit. 

In this chapter, the requirement for the system is described, the concept and 
scope of the model is explained, and an overview of the solution approach is presented. 


Finally, a general outline of the structure of the thesis is provided. 


A. REQUIREMENT FOR SYSTEM 

As the federal deficit continues to command Congressional attention, the 
pressure for further military spending cuts will continue to grow. Many of these cuts 
will affect programs such as operational Permanent Change of Station (PCS) personnel 
moves where a cut does not produce an easily quantifiable reduction in readiness. 
Notwithstanding, operational PCS moves are considered an important part of the 
development of a well-rounded, versatile and experienced force, and are an integral 
part of normal career patterns. 

In the Fiscal Year 1987 budget, Congress imposed a spending cut which resulted 
in the delay and, in some cases, the outright cancellation of numerous PCS moves. 
Further funding reductions are expected in the years ahead which may compel the 
Marine Corps to change some of its policies with regard to tour length, overseas 


moves, and unaccompanied tours. This may make it difficult to achieve required 
staffing levels at some commands and will affect the ability of the assignment officers, 
called “monitors”, to achieve the desired fit in many billets. Thus it is increasingly 
important that the Marine Corps continue to improve its management of PCS costs 
and develop some method for assessing the impact of proposed policy or budgetary 
changes on staffing and assignments. A comprehensive system for more accurately 
estimating staffing levels under various policy and budgetary conditions could help to 
validate PCS budget requests to Congress, as well as enhance the overall efficiency and 
combat readiness of the Marine Corps. 

The manpower allocation models which might be adapted for such a system use a 
variety of mathematical and heuristic techniques to deal with the large number of 
objectives that must be considered. The Officer Staffing Goal Model (OSGM), which 
is presently used by the Marine Corps for determining allocation goals, successively 
considers total fill, fill within job priority levels, and fit while enforcing a 
proportionality constraint which causes the equal sharing of shortages among billets of 
the same priority. However, because of the ngid data structures used in the model and 
the design of the OSGM itself, it 1s not suitable for analysis of policy alternatives. 
Also, since it does not consider relocation or PCS costs, it cannot be used to evaluate 
the effect of changes in budgetary constraints. 

This thesis presents the design for a decision support system which could assist 
Marine Corps decision makers in the analysis of a broad range of policy questions. 
Through the use of a special mathematical network formulation, the model considers 
the impact of several important factors on the fill, fit, and PCS cost of Marine Corps 
staffing, while observing certain restrictions and matching rules which are used in the 
actual staffing process. The system uses the same basic input files as the OSGM and 
would therefore not require the development and maintenance of new data bases. The 
prototype presented here permits both manipulation of the data extraction rules and 
adjustment of the network formulation. The user is permitted to modify the rules 
determining who may be eligible to move, as well as adjust both the minimum 
acceptable number of billets filled and the weights attached to some of the objectives. 
By permitting exploration of the optimal staffing levels under various policy and 
budgetary constraints, the model can provide the decision maker with a tool for better 


managing the funding and manpower assets of the Marine Corps. 
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B. CONCEPT AND SCOPE OF THE MODEL 
1. Concept 

The model is based on the idea that in any major policy area, such as PCS 
costs, there are “families” of policy-related questions which can be defined with 
reasonable precision. In addition, questions about policies which can be evaluated 
quantitatively can usually be answered by reference to a limited number of data bases 
which contain information relevant to certain question types. By permitting the 
decision maker to change the rules used to extract and organize the data, or to adjust 
the constraints and “weights” (either implicit or explicit) associated with the various 
objective functions, he may explore the outcomes of a process under varying 
conditions. 

The model presented in this paper demonstrates the feasibility of building a 
decision support system based upon that concept, and is guided by several practical 
considerations: 


1. The model -should utilize data bases which already exist and are readily 
accessible. Data requirements for the model should not necessitate the 
development of any major new data bases nor require extensive modification or 
special maintenance of present data. 


2. Ideally, the model should not require acquisition of any new hardware, and 
should be built around existing software when possible. Despite the size and 
complexity of the problem, the model should not require the use of a dedicated 
mainframe, and should run fast enough to permit multiple queries in a 
reasonable period of time. 


3. The model should be flexible and adaptable. Flexibility can be measured by the 
model’s ability to answer a wide variety of “what-if” questions regarding PCS- 
related manpower issues. Adaptability involves the ability to incorporate 
enhancements or modify existing routines without making major structural 
changes to the model. 


. 4. The decision maker should: be able to modify eligibility rules, set targets for 
some objectives, and adjust the priorities of some of the goals. 


2. Scope 
This prototype focuses on the interaction of PCS moving costs and policies on 
staffing levels among Marine aviation and air support officers (who constitute about 
35-40% of Marine Corps officers.) It is designed modularly to facilitate 
implementation of the full scale model involving all Marine Corps officers, and to 
simplify future addition of a capability to explore other manpower questions as 


requirements change. By modularizing the data preparation and problem formulation 
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process, a relatively large problem can be solved without requiring a dedicated 
mainframe or taking an inordinate amount of computer time. 

In its role as a prototype, the system is not designed to provide an exhaustive 
exploration of possible outcomes even within the PCS cost area. Rather, the model 
demonstrates the feasibility of using a control module, various data extraction and pre- 
processing modules, and a set of programs which permit variable formulation of a 
network assignment problem, to provide a decision maker with the ability to evaluate 
the staffing levels in varying scenarios. 

The model uses a set of eligibility rules which may be changed by the user to 
test the results of matching the present population or “inventory” of the Marine Corps 
to a set of authorized billets under varying conditions. It is important to clearly 
distinguish the intended application of the model from two other related manpower 
functions: assignment and allocation. 

Assignment, used in the manpower sense, is the precise matching of 
individuals to specific jobs. It is not possible in a mathematical model to capture all of 
the factors used in the assignment of officers. Many important but unquantifiable 
criteria, such as career patterns and past performance, must be considered by the 
monitors in the actual assignment of an officer to a particular job. Because of the size 
of the assignment problem and the complexity of the interactions involved, no single 
system can incorporate all of the factors which must be considered by the monitor. 
Therefore it is not the purpose of this model to make assignments of officers nor to 
mimic the assignment process. 

Manpower allocation is the determination of those billets which are to be 
filled, based upon available manpower assets. Because it does not involve the actual 
matching of individuals to billets, allocation is a somewhat less difficult problem. The 
Marine Corps presently uses a system called the Officer Staffing Goal Model (OSGM) 
to set targets for the filling of officer billets. Functionally. the model described in this 
thesis bears many similarities to the OSGM. Both involve network optimization 
models which consider exactly the same substitution rules for matching people to jobs, 
but the decision support system described here is more flexible in accessing the data 
bases and permitting modification of some of the eligibility and.matching criteria. In 
exchange for this increased flexibility, this model contains some simplifications of the 
rules used in the OSGM. For example, it does not include the capability to vary the 


share proportions for shortages within priority levels. 
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Despite the similarities, the model presented here is not designed to replace the 
OSGM. Rather, the model aggregates the results of the network problem to give the 
policy maker the ability to explore the effects of changes in funding level and policy. 
Thus, the model is intended for use as a decision support tool, mor as an actual 


assignment or allocation system. 


C. SYSTEM DESIGN 
1. Overview 

The system permits exploration of the feasible space of a problem with three 
principle dimensions: fill, fit and PCS cost. Several additional objectives, maximizing 
the fill in each of five job priority levels and sharing shortages within those levels, are 
incorporated in the model to reflect the guidelines that are observed in actual 
allocation. However, since these last criteria do not change in practice, they are not 
controllable by the user in the model. 

2. Functional Organization 

The system operates iteratively through six functional phases: data extraction, 
data preparation, formulation of the network problem, solution of the problem, 
summary of the solution, and control of problem re-definition and re-formulation 
through changing of policy data or weights. 

In the first two steps of system operation, a series of modular programs are 
used to extract data pertinent to the allocation problem and to process it in 
preparation for input into a specialized problem generation routine. These programs 
update the input files, attach the matching rules to both people and jobs, and 
determine possible acceptable matches between individuals and billets. After this, the 
problem is formulated as a capacitated transshipment network in a program which 
attaches costs and bounds that may either be left at default values or adjusted by the 
user. Next, the formulation is solved using the generalized network solver, GNET 
[Ref. 1] which is presently available on the Marine Corps mainframe at Quantico, 
Virginia. After reviewing a summary of the solution, the decision maker then has the 
option of adjusting certain parameters to control the fill, fit, and PCS cost achieved in 
the solution. Alternatively, he may change the rules used in determining eligibility for 
transfer. In the prototype, the latter option is limited to raising or lowering the time- 
On-station requirements for reassignment in all billets, however the model could be 
expanded to include modifying the matching rules used to generate acceptable arcs, 


changing the size or organizational structure of the Marine Corps and many other 
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factors which influence staffing levels. Subsequently, the modified problem is 
formatted and solved. The process may continue as long as the decision maker desires. 


D. THESIS OUTLINE 

This thesis presents the prototype for a system which utilizes current Marine 
Corps data on personnel, authorized billets, and substitution criteria to formulate a 
multiobjective optimization model tailored for use as a decision support tool. Chapter 
II, begins with a presentation of some background on the Marine Corps allocation and 
assignment process which will help in understanding the system. Next, the system 1s 
broken down into its six functional areas, and a brief summary is given of the 
programs used in each area. Chapter III deals with the development and formulation 
of the multiobjective optimization problem. In Chapter IV, conclusions and 
recommended areas for future enhancements are presented. Finally, listings of all of 


the source code and documentation are included as appendices. 
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II. DESCRIPTION OF SYSTEM 


In order to permit the decision maker to analyze the effect of changes in policies 
or funding levels on staffing goals, it is necessary to simulate the allocation process 
which would be performed under those constraints. The prototype manpower decision 
support system presented in this thesis consists of a series of computer programs which 
prepare and solve the allocation problem in a way that bears many functional 
similarities to the present allocation system, the Officer Staffing Goal Model (OSGM.)! 
In addition, however, the system also provides the capability to repeatedly modify and 
solve the allocation problem. The system’s operations may be grouped into six broad 
functional areas: data extraction, modification and preparation of the input files, 
formulation -of the network problem, solution of the problem, presentation of the 
solution, and control of the re-formulation of the problem. Within each of these 
functional areas are programs, written in VS FORTRAN or SAS, which perform 
specific tasks related to that function. Overall control of these programs is handled by 
a CMS EXEC file which ensures that the programs are run in the proper order, and 
that the correct program calls are made after the user makes changes in the problem. 
In this chapter, each of the functional areas is examined, and the tasks and programs 
contained in each one are described. First, however, it will be helpful to explain some 
of the terms which will be used, and to present an outline of the Marine Corps 


allocation process as implemented in the OSGM. 


A. TERMINOLOGY AND BACKGROUND 
1. Explanation of Terms 

Specific mulitary skills within the Marine Corps are classified by a four digit 
number which codes the Military Occupation Specialty (MOS) of each individual. 
Every Marine is assigned a Primary MOS (PMOS) which indicates his or her particular 
area of expertise (eg. F-18A pilot, artillery officer, etc.) In addition to a PMOS, many 
Marines have one or more Additional MOSs (AMOSs) which they received as a result 
of schooling or demonstrated proficiency in some MOS. In some cases, the AMOS 
may be the same as the PMOS which is required for some billets. Other AMOSs refer 
to technical skills which may only be held as additional MOSs, such as Aviation Safety 


‘For a more detailed description of the OSGM than provided in this thesis, see 
the OSGM User's Guide, [Ref. 2.] 
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Officer (7596) or Operations Analyst (9650). MOSs may be grouped into more 
general categories called “occupational fields” (OCC fields) which contain all MOSs 
with the same first two digits. In the OSGM the OCC fields are even further 
aggregated into what are called “officer types.” There are nine officer type categories in 
the OSGM, which include such broad groupings of OCC fields as “ground combat 
officer”, “air-ground combat service officer”, and “fixed wing pilot.” 

Warrant Officers and certain other officers have PMOSs that restrict them to 
certain billet types, usually of a very technical nature, and exclude them from certain 
command and staff billets. They are called Limited Duty Officers (LDOs) in contrast 
to “unrestricted officers’ who may fill a wider range of jobs. Billets specifically 
requiring or excluding LDOs are said to have a “duty restriction.” 

The required MOS for a particular billet is called the Billet MOS (BMOS). In 
most cases, the BMOS corresponds to a PMOS or AMOS, but there are three BMOSs 
which do not have a PMOS or AMOS counterpart. These three are used for billets 
which have no specific PMOS requirement, but may be filled by any officer of a certain 
type. BMOS 9912 applies to billets that can be filled by any aviation officer. 9911 
BMOS jobs may be filled by all unrestricted ground officers, and 9910 billets are open 
to any unrestricted officer, air or ground. 

The individual who fills a particular billet need not necessarily have the same 
PMOS as the BMOS for that billet. In some cases, if an individual’s AMOS is the 
same as the BMOS, he may be a candidate to fill that billet when no one with the 
correct PMOS is available. The set of substitution rules which define exactly who 1s 
qualified to fill a particular billet are contained in a file called the “Dictionary.” 

All commands at which Marines may be stationed are identified by a three 
character label called the Monitored Command Code (MCC). The structure of the 
Marine Corps is broken down into MCCs by grade (rank) and PMOS in the 
Authorized Strength Report (ASR). The ASR takes the total number of officers 
authorized by Congress, and distributes them among the MCCs by MOS and grade. 
The ASR is updated twice a year to reflect any changes in the structure or priorties of 
the Marine Corps. | 

2. Overview of the Allocation Process 

The staffing allocation process involves distributing the limited manpower 
resources of the Marine Corps among the authorized billets so that certain objectives 
are met as closely as possible. In the OSGM, the objectives are solved “preemptively.” 


That is, the objectives are ranked in order of importance, and the highest priority 
objective is solved first. Subsequently, each of the remaining objectives is solved in 
order of its importance, using the solution to the previous problem as a constraint. 
This continues until either all of the objectives have been solved, or until there is no 
longer any flexibility left to improve the next objective. 

The objectives of the OSGM are, in order of priority: 


1. Maximize the total number of billets in the Marine Corps that are filled by 
qualified individuals. 


2. Successively maximize the number of jobs filled in high priority bullets without 
reducing the overall fill. The priority of a billet is defined bv its Staffing 
Precedence Level (SPL) which is based on Marine Corps directives that set job 
priority policies according to the present need. 
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Minimize the difference in the proportion of billets filled within the same 
precedence level. This equates to sharing any shortages within SPLs. 


4. Obtain the best “fit” for each person-to-job match. The only established 
quantitative measure of fit that has gained any degree of acceptance in the 
Marine Corps is the one used by the Officer Staffing Goal Model which defines 
up to five acceptable levels of substitution for each job. Each of these “fit 
levels” lists a set of eligibility criteria which must be met in order for a person to 
be matched to that billet. The criteria are established by the monitors and 
include grade (rank), PMOS, AMOSs, duty restriction, sex, officer type, and 
“experience.” Because “experience” is difficult to define, it is seldom used by the 
monitors as a discriminator. Since the fit levels list the substitutions in the 
order of their desirability, obtaining the best fit amounts to minimizing the sum 
of all the fit levels. 


In addition to these objectives which are considered in the OSGM, there is 
one more goal that the Marine Corps would like to include in the allocation process: 
minimization of Permanent Change of Station costs. The OSGM altogether lacks the 
capability of including these relocation costs among its criteria. Therefore, most of the 
recent PCS cost reduction has been done through either case-by-case decisions by the 
monitors or through broad policy initiatives, rather than by adjustment of the staffing 
goal. In an effort to cut PCS expenses, the Marine Corps is attempting to “reassign”, 
rather than transfer, whenever possible. A reassignment is defined as any move that is 
less than 50 miles, or is confined to certain regions, defined by Marine Corps Order, 
where several Marine installations are close by. When a Marine is reassigned, he is 
expected to continue at his present residence; hence no relocation costs are incurred by 


the Marine Corps. 
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B. FUNCTIONAL ORGANIZATION OF THE MODEL 
In this section the system is described through a detailed presentation of the six 
functional areas. An overview at the beginning of each discussion lists the tasks that 
are performed in that area with an emphasis on any special design considerations that 
affect more than one program. Next, the implementation of the tasks is described in 
detail by looking at how the individual component prograrns contribute to the 
accomplishment of the tasks. When the design of an individual program is particularly 
complex, a list of the tasks in the program is also presented. 
1. Data Extraction 
a. Overview and Task Listing 
Since data extraction is dependent on parameters that the user does not 
input until after the first solution is achieved, it is necessary to first initialize certain 
files that will be used to set eligibility requirements, weights, and objective function 
priorities before the problem can be solved. After this, the supply, and demand are 
extracted, along with the rules used to update and match them. Pertinent information 
on the inventory of officers (supply) is drawn from a file called the Headquarters 
Master File Extract or HMF Extract (in the prototype, it 1s called “WORKING 
INVENTRY”) which contains personal information on all Marines and is updated bi- 
weekly. The demand for billets is read directly from a file containing the ASR. The 
information used to update and match the inventory and the ASR is contained in a 
series of files that are collectively known as the “Dictionary.” Since the prototype deals 
only with aviation-related billets, only those officers, jobs, and Dictionary records 
applying to them were used. The files which were created for this reduced organization 
have the same format as the complete Marine Corps files and Were taken directly from 
the actual unprocessed data that would be used in the full scale model. 
The data extraction tasks, which are explained in detail in the next section, 


may be summarized as follows: : 


Initialize the files used to define the problem. 


2. Extract the inventory of officers from Marine Corps data files. This includes 
reading in an adjustment factor to the normal tour length from a _ user- 
controlled file, re-coding certain character variables into integers as they are 
read in to speed up data preparation, attaching a cost location code to each 
record, and formatting and sorting the files for the data preparation phase. 


3. Read in the demand file. 
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b. Programs 

This section contains a description of the programs used to effect the data 
extraction tasks. 

(1) File Initialization (Program name: INITLIZE Language: FORTRAN). 
Since the prototype initially solves the problem using current policies and priorities 
before the user interacts, all of the files which will contain user-supplied parameters 
after the first run through the solver must be initialized so that the problem can be 
solved the first time. After the initial solution is achieved, the user is given control 
over certain parameters relating to the extraction of the inventory and the formulation 
of the problem. The values he selects are written to files which are, in turn, read by 
the inventory extraction and problem generation programs on later runs. Thus, 
INITLIZE is bypassed on all subsequent iterations of the formulation and solution 
process. 

(2) Inventory Extraction (Program name: FREE-FIX Language: SAS). 
The supply for the allocation problem is generated by separating the officer inventory 
. into two groups, those who are eligible to be transferred, called “movers” or “free” 
officers, and those who are not, called “non-movers” or “fixed” officers. Free officers 
are those who have been at their present duty at least as long as the “standard” tour 
length at that billet, which is defined by the Tour Control Factor (TCF) for the billet. 
The TCF is the length, in months, of the “standard” tour length for a particular billet, 
and varies depending on the geographic location, type of duty station, and whether the 
individual is accompanied by his family or not. Movers may be transferred to any 
billet for which they fill at least one of the acceptable substitutions found in the 
Dictionary. Non-movers may only be reassigned to billets to which they match within 
their current MCCs. Determination of who are movers and who are non-movers is 
based upon those whose standard tour is over before the end of the period for which 
the allocation is to be run. This period, which is usually one year, is called the 
“window” of the allocation problem. 

In the prototype, the user may adjust the TCF to reflect changes in 

tour length policies. This tour length adjustment factor is read into FREE-FIX using a 
SAS macro. In the first formulation, the factor is set to zero, meaning that the normal 
tour length policies hold. At the end of each solution summary, the user is permitted 
to change the TCFs through adjustment of this factor. After it is read into FREE- 
FIX, the adjustment is applied equally to all billets to determine new TCF’s used in 
extracting a new set of free and fixed officers for the next problem. 
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In addition to dividing the officers into movers and non-movers, the 
inventory extraction program converts many of the data items from character to 
integer values as they are read in. This permits the use of 0,1 or 0,1,2 rather than 
character comparisons in the matching routines, and allows declaration of smaller 
storage space if desired. Also, within the inventory extraction module, a “Cost Code 
Center Index” (CCCI) 1s assigned to the duty station of each officer which labels his 
general geographic area. Cost Code Centers are locations used to aggregate the nearly 
2400 MCCs in the Marine Corps into 63 geographic areas. The CCCI 1s used later in 
estimating the relocation cost. Finally, the fixed and free inventories are sorted two 
ways and output to appropriate files. The first pair of files (named USMC MOVRSUP 
and USMC NONMSUP, respectively) contain the free and fixed officers sorted by 
MOS, grade, and MCC. The second two files (MOVERS SORTXOTYP and NON- 
MOVR SORTXOTYP) are sorted by officer tvpe and grade. Both sets of files are 
designed to be read into the matching program, however only the first two are 
processed further in the prototype. This is because only the MOS/grade criteria 
substitution matches were considered in the prototype matching routine.” Output from 
FREE-FIX includes files of fixed and free officers appropriately sorted for the 
matching programs, and a file containing data on those who are expected to leave the 
Marine Corps because of retirement or the end of their obligated service. 

The tasks performed by FREE-FIX can be summarized in the 
following list: 

1. Read tour length adjustment factor from file TCF-ADJ DATA. 


2. Extract supply of fixed and free officers from the HMF Extract based on the 
most recently calculated values of the TCFs. 


Gd 


Remove from this preliminary inventory those who will be retiring or getting 
out due to the end of their obligated service. 


4. Recode character variables into integer where possible, and reformat files for 
subsequent use. 


5. Sort and output the free and fixed inventories to files to be used later. 


“There are three basic ways of sorting and classifying the substitution criteria: 
MOS and grade, AMOS or OCC field and grade, and officer type and grade. Only the 
criteria involving the PMOS and grade were used in the prototype to simplify the 
problem. See the discussion on the need to generate all matches in Chapter IV, 
Section B.1.b.(1). 
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(3) Demand Extraction (Program name:XPASR  Language:SAS). The 
demand is defined by the Marine Corps in the Authorized Strength Report (ASR) 
which contains a list of the number of authorized billets sorted by MCC, MOS, and 
grade. The ASR is read in and reformatted for the data preparation phase. 

(4) Dictionary Extraction. Many of the files needed for the solution of the 
allocation problem have already been developed for the OSGM Dictionary. Because of 
the need for quantifiable measures of “fill” and “fit” and the difficulty in establishing 
acceptable rules for people-to-billet matchings, the rules used in this model are adopted 
directly from the Dictionary. This eliminates the necessity for establishing a separate 
standard of measure which would have to be validated and maintained by the Marine 
Corps. The files in the Dictionary set priorities for the filling of billets, define 
acceptable substitutions for each job, define and rank “fit” for each acceptable 
substitution, establish a matching from the substitution lst to the demand, and permit 
changing the numbers and types of both supply and demand. In the prototype, the 
Dictionary files are read in as needed. There is therefore no program dedicated to this 
task. 

2. Data Preparation 
Data preparation involves updating the demand requirement and generating 
potential matches of people to billets. This is accomplished through the use of a 
demand adjustment file, pointer arrays, and by applying the matching rules contained. 
in the Dictionary separately to the fixed and free inventories. 
a. Overview and Task Listing 

(1) Overview. Matching people to jobs is potentially the most time 
consuming part of the data preparation phase since there could be several hundred jobs 
that each of the several thousand (approximately 7,000 in the prototype, and 17,000 in 
the full scale model) people in the inventory could fill. Whether the actual search is 
conducted by searching through the inventory for each billet or by searching through 
the billets for each person, it involves a very large number of criteria comparisons since 
each substitution record has nine items that define the substitution. 

There are several possible approaches to accelerating the task. One 
method would entail simply deleting all of the non-movers and their billets from 
consideration. But this would eliminate the possibility of reassignment of non-movers 
Within their current MCCs which might substantially reduce PCS cost.? Another 


3In the prototype, reassignments are limited to the MCC in which the individual 
is currently located. In practice, however, they could be made to any other MCC 
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approach involves the total enumeration of all possible matches between individuals 
and billets, followed by elimination of matches involving transfer of fixed people out of 
their MCCs. But this technique is computationally wasteful and requires more 
computer time. 

The approach taken in the prototype lies between the two listed above. 
In this method, movers and non-movers are matched separately through the use of an 
additional, smaller ASR composed of all billets not already filled by fixed personnel. 
This reduced demand list, FREE ASR , is used in the matching of movers, while non- 
movers are matched to demands within their MCC that are in the complete demand 
list, WORK ASR. The combined list of potential matches that results includes almost 
all possible reassignments yet involves a much smailer number of criteria comparisons 
and avoids generating unnecessary arcs to billets where there is no demand. In 
exchange for the reduction in the size of the matching problem, the list does nor 
include matches of free individuals into fixed billets in those cases where a fixed person 
Is reassigned within his MCC. This should not dramatically affect the overall solution 
since many MCCs have only a single demand, and where there are multiple demands, 
most individuals can be matched to only one or two billet types. Thus, in cases where 
there is more than one job for an individual within the same command, the impact (if 
any) on the solution will usually be limited to a slight change in the fit solution. This 
sacrifice was deemed acceptable in order to achieve a large reduction in the number of 
comparisons that have to be made by the matching routine. 

The model employs numerous indices to refer to data items which can 
be grouped together. This permits reference to a single number rather than to multiple 
data elements all related to the same object. For example, individuals are referenced by 
an index called “IDNUM” rather than by all of the data relating to each person. 
Simlarly, each unique billet requirement is referred to by means of a nine character 
name called the Billet Officer Description (BOD). Each BOD is defined by substitution 
rules that may contain up to eleven criteria.* Rather than carry all of the eleven criteria 
along until they are used to match people to billets, or even carrying a nine character 
BOD, the BOD is identified by a four digit integer BOD number (BODNUM) which 


within a 50 mile radius of the current MCC, or, in the case of those which fall into 
certain regions defined by Marine Corps directive, to any MCC within their region. 
See Chapter IV, Section B.1.b.(7) for a discussion of how this might be implemented. 


‘lowest acceptable grade, low grade experience, highest acceptable grade, high 
experience, PMOS, officer type, firsts AMOS, second AMOS, sex, duty restriction, and 
fit level. 
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serves as an index to a file where all of the criteria for each BOD are stored until they 
are needed. Also, individual billets are referenced by billet numbers (BILNUMs.) 

Potential people-to-job matches are found by first identifying all 
individuals (indexed by IDNUM) who fill the substitution criteria for a certain job type 
or BOD. Next, all billets requiring that BOD are identified and indexed by a 
BODNUM. Finally, the index number (IDNUM) of the individuals who are matched 
to a BOD are matched to the index of the specific billet (BILNUM) by merging 
according to the shared BODNUM. This heavy use of indices complicates the reading 
of the programs somewhat, but it reduces the amount of data that must be carried 
from one file to the next. 

(2) Task Listing. The data preparation phase begins with the generation 
of pointer arrays which are used later in the matching program. The pointer arrays 
give the indices of the first and last occurrence of a particular MOS/grade combination 
in the sorted inventory lists. Next, the ASR is updated to incorporate any recent 
changes to the demand. Third, the fixed inventory file is re-formatted and input to a 
program where billets occupied by non-movers are subtracted from the complete, 
updated ASR to give a smaller ASR which is used in the matching of the movers. 
Following this, both the complete and the reduced ASRs are broken down into more 
specific billets with more detailed job requirements, and a BOD is attached to each 
billet. Using the BOD as an index, a set af acceptable substitutions are then attached 
to the billet. Next, the entire inventory is matched to the billets according to whether 
the individual is fixed or free, using the substitution lists that were attached to the 
demands. Finally, the resulting list of potential people-to-job allocations is sorted for 
Input into the network generation program. | 

The list of tasks for the data preparation phase is summarized below: 
Generate pointer arrays to the inventory Files. 


2. Update the ASR file to reflect changes in the structure of the Marine Corps. 
(Resulting file: WORK ASR) 


3. Re-format non-movers for subtraction from the full ASR. 


4. Generate a reduced ASR file which does nor contain any billets that are already 
occupied by non-movers. (Resulting file: FREE ASR) 


). Splt both WORK and FREE ASR files up into more detailed demands, and 
join those detailed billets to their corresponding BODs. Also, attach the 
substitution lists to the billets using BODNUMs to link the two files. 


6. Match the inventory to the billets using the substitution lists to link the two 
files. This generates a list of potential people-to-job matches. 
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7. Sort and format the list of potential allocations for input into network 
generation program. 


b. Programs 
In this section, the programs which implement these data preparation tasks are 
described. 

(1) Generation of Arrays (Program names: ADJ-LIST, ENTRY-PT 
Language: FORTRAN). The first task accomplished in the data preparation phase is 
generation of pointer arrays. In order to speed up the process which matches the 
inventory to the demand, an array is generated for each of the sorted inventory files, 
which points to the first and last occurrence of a particular MOS and grade in both the 
fixed and free inventory files. This greatly reduces the number of comparisons that 
must be made in the sorting program by limiting the search for matches to the precise 
MOS and grade desired.> 

(2) ASR Update (Program name: CIASR_ Language: SAS). Following 
generation of the pointer arravs, the ASR is updated to reflect changes in the numbers 
of people authorized at various billets which have occurred since the ASR was last 
revised. The file containing these changes, WKCI CRD, may also be used to add or 
delete entire units or billet types to or from the Marine Corps. The resulting file, 
WORK ASR, thus reflects the structure of the Marine Corps which the decision maker 
wishes to use in the analysis of staffing policies, priorities, and constraints. 

(3) Re-Format Non-Movers (Program name: ROLNM Language: SAS). 
This program converts the non-mover inventory up into ASR format in preparation for 
generation of the reduced ASR. 

(4) Generate Reduced ASR for Matching of Movers (Program names: 
INVNTRYI, ADJ-LIST, EXCESS Languages: SAS, SAS, FORTRAN). in order 
reduce the number of comparisons which must be made in the matching program, 
movers and non-movers are matched to their respective demands separately. This 
series of programs produces the special ASR that is needed to define the reduced 
demand for movers by subtracting from the complete ASR all billets that can be 
definitely identified as already occupied bv fixed personnel. Not all billets occupied by 


non-movers can be linked to the ASR without looking at the set of substitutions, even 


>A similar entry point array should be made for the inventory files that are sorted 
by officer type and grade in any full scale implementation of the system. In the 
prototype, however, this was not done since the matching was performed only on 
MOS/grade substitution criteria. (See the discussion of the Matching Routine below in 
Section B.2.b.(6).) 
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though this is precisely what the programs seek to avoid. In heu of time-consuming 
sorting through all substitution list sets, these programs use a set of conservative 
matching heuristics to quickly identify and eliminate from the ASR most of the billets 
occupied by non-movers. In doing so, they provide a much smaller list of billet 
substitutions which must be searched to determine the potential matches for movers, 
and reduce the number of unnecessary arcs generated in the network. 

For example, suppose that there is an aviator who is fixed at a 
command which does not have any requirement for his specific PMOS. The heuristic 
will seek to determine the billet he is filling by looking for a 9912 BMOS billet (which 
can be filled by any aviator) and any billets for which his AMOS might qualify him. If 
it can match him to an authorized billet, his billet can be eliminated from 
consideration, thus reducing the number of matches that must be made. 

(5) Split ASR into Precise Demands and Attach Substitution Lists to Billets 
(Program names: EZASRA, E2ZASRB, EIASRE2A, EIASRE2B. Language: SAS). 
Before individuals can be matched to jobs, the specific job substitution criteria given in 


© must somehow be matched to 


the Dictionary, which contain nine matching categories, 
the broad authorization categories listed in the ASR which are identified only by 
PMOS and grade. This is done in two steps. First, the MOS/grade combinations for 
each MCC given in the WORK ASR and FREE ASR files are broken down into 
specific billet requirements and linked to a particular job description, identified by the 
Billet Officer Description (BOD). Next, a set of up to five acceptable substitution 
criteria is attached to each specified billet using the BOD. 

For example, suppose that the ASR lists a demand for twelve Captains 
with MOS 7564 (CH-53D pilot) at a particular helicopter squadron. The actual billet 
need in that unit may include one specially trained Aviation Safety Officer (MOS 
7596), while the rest of the jobs may only require a 7564 Captain (squadron pilot.) 
Therefore, the demand for twelve 7564 Captains must be broken down into a demand 
for one BOD called “Aviation Safety Officer” and eleven with a BOD of “squadron 
pilot”. Both BODs have a different set of substitution criteria in the Dictionary. 

The mechanics of attaching the list of acceptable substitutions for each 
specific job to the ASR are not complicated. First, the ASR is split into detailed billet 
requirements through rules contained in what are called “E2 Cards.”’ The E2 Cards 


°PMOS, first AMOS, second AMOS, lowest acceptable grade, low grade 
experience, highest acceptable grade, high grade experience, sex, and duty restriction. 


"The word “Cards” on many of the OSGM files is a carry over from the early 
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break apart the ASR demand at each MCC into specific billets and attach both a BOD 
and a Staffing Precedence Level (SPL) to each job. Substitution lists are then attached 
to the specific demands that were identified by the E2 Cards using what are called “El 
Cards.” The El Cards define an ordered set of acceptable substitutions for each BOD. 
Thus, the BOD is the essential link between the ASR demand and the substitution lists. 

The first substitution listed for each BOD is given a fit level of one, the 
second, a fit level of two, and so forth, Many BODs have only one acceptable 
substitution description, but there may be up to five listed per BOD. Each substitution 
does not have to be completely explicit, but may indicate an acceptable range of 
choices or even complete indifference about certain of the criteria. For example, a 
substitution may permit any PMOS within a certain OCC field and may express 
indifference about the duty restriction criteria. The BODs are attached to the free and 
fixed ASR demands by the programs E2ZASRA and E2ASRB, respectively. These, in 
turn are merged with the substitution lists in ELASRE2A and ELASRE2B, respectively. 
The latter two programs also append the appropniate Cost Center Code to each MCC 
in the demand list. 

(6) Matching Routine (Program Name: MATCH-AL Language: 
FORTRAN). Once all billets have been explicitly identified and defined and their 
substitution lists established, the next task is the actual matching of the fixed and free 
inventories to the specific jobs. In the prototype, matching is accomplished by finding 
all individuals who match to each BOD, then finding all jobs associated with that 
BOD. The people-to-billet matches which result from the merging of that information 
are then wmitten to a file called RAW ARCS, since the potential matches they represent 
constitute the initial set of ares used in the network formulation. 

MATCH-AL program operation is performed first on the movers, then 
on the non-movers. The functional tasks accomplished in MATCH-AL are listed 
below: 


1. Read a 63X63 MCC to MCC cost matrix into resident memory. This is used 
to assign a PCS movement cost to all legitimate matches found in the program 
and is only used when matching movers since reassignments have no PCS cost. 
The costs used in the prototype are scaled to be representative of actual costs, 
but are not based on detailed cost studies. Rather, they are equal to a constant 
(2,000) added to the distance between the MCCs that are being matched. 


days of the OSGM when actual punch cards were used. 
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Read the complete free (or fixed, in the second part of the program) inventory 
into resident memory. Each individual characteristic that appears in the 
substitution cards is read in array form for every person that appears in the 
inventory. In addition to the seven variables® required for the substitution 
criteria items, five more indices? are used to access some cost and pointer 
arrays, to index the individual and his location, and to ensure that no one 1s 
matched to the same billet more than once. In practice the 20000 X 12 array 
which was used in the prototype is larger than would ever be needed in a full 
scale model, even if everyone were treated as a mover. The purpose of this 
seemingly extravagant use of memory is to speed up the matching by 
eliminating costly accessing of the inventory files each time another substitution 
card is read. Careful count is kept of the number in each inventory file so that 
the same array can be used for both the fixed and the free matches. After all 
movers have been matched, the array is over-written with the array of non- 
movers. 


Read in the pointer array for the inventory.file that is being matched. When 
searching for those who might meet the criteria for a a particular substitution, 
the pointer array is used to go directly to the MOS and grade listed in that 
substitution criteria, thus avoiding a lengthy search through the entire 
inventory. 


Read in each “demand group” from the ELASRE2A and ELASRE2B files. A 
“demand group” is defined as the set containing all of the substitution cards (ie. 
El Cards) and demand for a particular BOD (ie. all MCCs at which that BOD 
requirement is found, and the number of empty billets at each MCC.) 


Find all individuals in the inventory who match the criteria listed in every 
substitution card. This is done as follows: First, for each substitution card, 
using the pointer array to narrow the search, find every individual or group of 
individuals who meet the criteria and have not previously been matched within 
that BOD. Second, generate arcs (matches) between that individual or group 
and all MCCs in the demand group. Third, mark the individual or group to 
avoid re-matching within the same BOD at a lower fit level. Lastly, continue 
the search until there are no more possible matches for that substitution, and 
then go to the next card. Entire groups may be matched when the only 
substitution criteria is grade and MOS. This occurs on almost fifty percent of 
the El Cards, and makes it possible to directly match individuals to MCCs by 
using the pointer array as an index to the IDNUMss (individual indices). 


8PMOS, grade, first AMOS, second AMOS, sex, duty restriction, and experience. 


The five indices and their uses are: 
ICOSTC - Individual Cost Center Code index used to enter cost array. © 
IDNUM - Identification index for use in analysis of the solution. 
IMOSNO - MOS index number used to access pointer arrays. 
LSTBOD - The last BODNUM to which the individual was matched. It is 
used to prevent multiple arcs from a person to the same BOD 
PMCC  - Present MCC. Used to determine if reassignment is allowed. 
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The result of performing this process for both fixed and free inventories 
is a file containing the legitimate people-to-billet matches. Although the fixed 
inventory search covers the entire ASR demand, by limiting eligible matches to the 
same MCC, the number of comparisons that must be made is greatly reduced. _ 

There are three primary wavs of matching individuals to billets based 
on the type of El Card used for a given billet. Approximately seventy percent of the 
El Cards contain a specific PMOS and six other criteria: grade, AMOSI, AMOS2, 
experience, sex, and dutv restriction. Less than ten percent of the El cards indicate 
indifference about the PMOS, and are primarily concerned with AMOSI and the 
remaining five criteria. The remaining twenty percent of the E! Cards have an officer 
type in place of the PMOS and have the same six other criteria as the first type of 
substitution. Each one of these El Card types requires over 500 lines of FORTRAN 
code to exhaustively identify for both inventories. Since the purpose of this thesis is to 
demonstrate the concept of the overall system, and not to construct the full scale 
model, the prototype performs matches only on the first type of El Card. However, 
the program is written so that appropriate subroutines could be inserted to incorporate 
matching on the other two tvpes of cards without disturbing the flow of the program. 
Notwithstanding the present limitation, the output from the model does not appear to 
be unreasonable. (See discussion of output presentation in Chapter IV, Section 
B.1.b.(7).) 

(7) Sorting of Matching Routine Output (Program name: BIGSORT 
Language: SAS). This program sorts the output from MATCH-AL by SPL, BOD, 
and MCC in preparation for input into the network generation program. 
c. Summary of Data Preparation 
The programs in the data preparation phase combine the supply and demand of the 
allocation problem in such a way that the network problem can be formulated directly 


from user inputs and a single data file containing all basic people-to-job matches. 


3. Generation of the Network Problem (Program name: NET-GENX Language: 
FORTRAN) 
Generation of the network problem consists of several tasks: 
1. Determine all legitimate arcs in the capacitated transshipment problem network. 
2. Calculate costs on those arcs. 
3. Format the problem for input to the solver, GNETBX. 
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This program converts the sorted people-to-billet matches into the capacitated 
transshipment network described in detail in Chapter III. It allows for the changing of 
weights or priorities attached to the fit and cost objectives, and the adjustment of a 
lower acceptable bound on the total number of billets filled. This flexibility is achieved 
by the use of parameter input files which are used to determine the values of certain 
weights and bounds in the formulation. During the first formulation of the allocation 
problem, the program uses the parameters that were set by the program INITLIZE. 
On subsequent iterations through the system, the user may adjust these parameters 
which will then change the weights and bounds in the formulation. Refer to Chapter 
III for additional details of the program and how it adjusts the formulation of the 


model to reflect the user's desires regarding priorities and goals. 


4. Solution of the Network Problem (Program name: GNETBX Language: 
FORTRAN) 


The capacitated transshipment network formulated to capture the allocation 
problem is solved using GNETBX, a software package developed by Bradlev et. al. in 
1975. A detailed explanation of the operation of the solver can be found in |. 


5. Presentation of the Solution (Program name: SUMMARY Language: 
FORTRAN) 


This program presents some brief statistical summanies of the solution to the 
user. In the prototype, the summaries provide only the most general overview of the 
solution. Ina full scale implementation of the system , the user will want the option of 


exploring the distribution of resources in the allocation solution in much greater detail. 


6. Problem Re-formulation (Program name: SUMMARY, THESIS Language: 
FORTRAN, CMS EXEC) 


The process of re-definition of the problem is handled by a control module 
which gives the decision maker the opportunity to modify the formulation by changing 
the data extraction rules (ie. the TCF), the fill bound, or the weight placed on the fit 
and cost objectives. The user has the option of changing one or all of the parameters 
and may reset them as many times as he desires before leaving the control module. 
Once he exits the FORTRAN control program, control reverts back to the VS EXEC 
program, THESIS, which ensures that all of the programs are executed in accordance 


with user instructions. 
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If the user has changed the TCF adjustment factor and indicates that he 
wishes to see the resulting new optimal allocation, the EXEC program loops back to 
the beginning of the extraction process, bypassing INITLIZE and re-entering FREE- 
FIX. This causes all subsequent programs to be executed again in order. If he has 
changed the objective priorities or the limits on fill and desires to re-calculate the 
allocation, the EXEC program re-starts the solution process at NET-GENX. Since no 
change has been made in the inventory or demand, only the network with its associated 
weights and bounds need be re-formulated and solved. 

In a full scale implementation there are many other places the system could be 
directed to re-start. If the decision maker were given the option of changing the 
substitution or matching rules, the process should re-start before the substitution cards 
are attached to the billets (ie. ELASRE2A and EIASRE2B.) If the user were to change 
the structure of the Marine Corps by modifying the ASR adjustment file (WKCI1 
CRD) to add or delete units or billet types, the process should be re-entered where the 
ASR is updated to reflect changes which have occurred since the last semi-annual 
update (ie. CLIASR SAS.) The sequential and modular structure of the system thus 
permits enhancements without necessitating any changes in the basic program design 


or organization. These possible enhancements are discussed more fully in Chapter IV. 
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III. DESCRIPTION OF THE NETWORK ASSIGNMENT MODEL 


The heart of the prototype system presented in this thesis 1s a specialized network 
model which may be modified by the user. This chapter begins with a discussion of the 
multiobjective optimization techniques that are used in the network model.!9 F ollowing 
that, the model used to solve the allocation problem is described and the mathematical 
formulation is presented and discussed. 


A. MULTIOBJECTIVE OPTIMIZATION METHODS USED IN THE MODEL 

Multiobjective optimization is defined by Rosenthal in (Ref. 3] as the field of 
optimization dealing with problems that have more than one measure of effectiveness 
and a feasible region that is too large to enumerate. Let F(x) be a multiobjective 
function composed of n component objective functions f)(x),f>{X),.--, f£,(x). Since there 
is no clear way of ordering (and, hence, maximizing or minimizing) a vector valued 
function such as F(x), various approaches have been proposed to deal with this class of 
problems. Although there is no universally acknowledged classification of these 
techniques, Rosenthal [Ref. 3] gives three basic categories of approaches which apply 
to the model presented in this thesis: Priorities, Aspiration Levels, and Weights. All of 
them involve some degree of subjectivity and each has some significant weaknesses. A 
brief discussion of each one and how it is used in the model will assist in understanding 
the network formulation, which combines all three. 

1. Priorities 

The Priorities approach, also called Preemptive or Lexicographic 

Programming, involves solving an ordered set of component objective functions, f(x). 
In one implementation of the approach, each objective is sequentially optimized in 
order of its priority. If there are any ties in the solution, then the next ordered 


lOThe techniques discussed in this chapter apply to the solution of the problem 
Once it has been formulated, and do not deal with the assumptions and heuristics that 
are used to develop that formulation. For example, in the prototype, only those El 
cards involving MOS and grade criteria were used, while those substitutions based on 
officer type, OCC field, or AMOS were ignored in order to reduce the size of the 
problem. Therefore, the solution returned from the solver would be optimal with 
respect to the formulated problem, but the simplification used to make the formulation 
would render the solution sub-optimal with respect to the actual overall allocation 
problem. 
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objective may be solved. This continues until either all component objective functions 
are solved, or until there are no more ties and, thus, there is no flexibility remaining for 
improving the lower priority objectives. Although this preemptive method lends itself 
readily to mathematical programming techniques, it requires a large number of ties if 
there are many objectives and does not permit tradeoffs among the objectives which 
often occur in practice. | 

It is also possible to solve the multiobjective optimization problem 
preemptively in a single pass if sufficiently large weights are used to separate the 
objectives. This is the technique employed in the model. One potential danger in this 
approach is the requirement for large weights which could cause roundoff error if they 
are not chosen properly. 

The first priority in Marine Corps allocation is maximizing the total number 
of billets filled. Operationally, this objective is treated as paramount, therefore the fill 
objective is solved in an essentially preemptive fashion. 

2. Aspiration Levels 

This approach consists of setting targets or goals for one or more of the 
objectives, then optimizing the rest. Aspiration levels can be expressed as either ideals 
or as minimum acceptable values, b;. Since we cannot speak of either minimizing or 
maximizing F(x), the problem can be stated: “Find the ‘most favorable’ (however that 
may be defined) value of F(x) subject to the constraint, 

f(x) 2 b; (for all 1 with aspiration levels.)” 

In the formulation of the model, a lower bound may be placed on the 
acceptable level of fill. This permits the user to keep the preemptive ordering of the All 
objective while allowing additional ties to improve the solution in the other criteria 
categories. 

3. Weights 
By multiplying each component objective function by an appropriate weight and then 
optimizing the sum of the weighted costs, the multiobjective optimization problem can 


be solved as a single criteria optimization problem. The resulting utility function, 

U(x) = De ewfi(x) (for all 1), 
can then be optimized over the range of x. This is the basic approach underlying the 
prototype model. However, it has been modified slightly to permit the use of 


aspiration levels, and to account for a number of inherent weaknesses in the weighting 


approach which are discussed below. 
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a. Potential Problems with Weights 

(1) Constant Marginal Returns. Using constant weights on the objectives 
that are being considered ignores the principle of diminishing marginal returns. This 
principle states that an individual is more willing to tradeoff some amount of a 
commodity when there is a lot of it than when there is very little. Similarlv, using a 
fixed weight to combine two objectives does not reflect the fact that, as one objective 
approaches an optimal value at the expense of the other, the extreme condition of the 
one may cause the decision maker to change his relative valuation of the two 
objectives. This deficiency can be partially overcome by allowing adjustment of the 
weights after each solution so that the decision maker can vary the importance of each 
objective according to the level each one has attained. Unfortunately, this may 
become confusing to the user if too much manipulation of weights is performed. In 
the prototype, the relative weights of only two objectives, fit maximization and PCS 
cost minimization, are controlled by the user. Additionally, control is limited, for the 
sake of clarity and modeling integrity, to the setting of one or the other as preemptive. 
or setting them to equal priority. Using pairwise combinations of related objectives 
greatly simplifies interpretation of the changes from one solution to the next. 

(2) Subjectivity and Implicit Assumptions. Although mathematically 
simple, weights may be difficult to determine and validate operationally. Weights 
determine the relative emphasis on the objectives and the relative value of tradeoffs, yet 
they invariably involve the personal judgment of the designer, and are often burned 
within the computer code of a formulation. It is therefore important that the 
assumptions used to derive the relative weights be explicitly stated. It is even more 
preferable to give the user the ability to set or change the weights himself, provided this 
is done carefully. 

| (3) Non-Compatibility. Although different objectives can be combined 
into a single utility function using a weighting scheme, their measures may be 
incompatible. In the prototype, PCS cost is a ratio number, meaning that the ratios of 
PCS costs have meaning. For instance, a $6,000 PCS move is actually twice as 
expensive as a $3,000 one. But fit is measured on an ordinal scale, so differences in fit 
numbers indicate only relative ranking. A fit level of 4 is not necessarily twice as “bad” 
as a fit level of 2. | 
‘When ordinal and ratio numbers are combined into a utility function, 
it 1s important to avoid any invalid statistical manipulation of the resulting values or 
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scores. In the prototype, this danger is reduced by conversion of the implicit utility 
values back into the un-scaled values of fit and cost in the solution. Thus, it is not 
possible for the user to compare them directly. Furthermore, the user is not given the 
option of fine-tuning the weights in order to prevent him from trying to achieve some 
precise desired solution solely by toying with the weights. 

(4) Required Large Size. Another potential problem with weights 1s 
present when weights are used to enforce the preemptive solution of a large number of 
objectives. If there are many lexicographic objectives, the weights required may be so 
large that computer accuracy limits are exceeded. In the model described here, there 
are nine objectives in the formulation: maximize total fill, maximize fill within each of 
five priority levels, minimize the variation in proportionality of fill within each pnonty 
level, maximize “fit” as defined by the El Cards, and minimize PCS cost. Thus, even 
though the objectives are not all solved in a strict lexicographic order in the model, the 
size of the weights 1s a concern in the formulation. | 

Fortunately, it is not essential in a decision support system, such as the 
one described here, to have prefectly impermeable boundaries between the objectives. 
_ In practice, if a large gain in a secondary objective can be obtained by the sacrifice of a 
“small” amount of a primary objective, the tradeoff might be preferred. Thus, in order 
to keep the magnitude of the weighting coefficients manageable and to provide the 
Opportunity for extremely “profitable” tradeoffs between some objectives, the 
differentials between objective function weights should be adjusted to capture the 
desired level of separation among the pniorities. 

b. Measure of the Preemptiveness of Objectives When Using Weights 

When dealing with a large number of objectives, there is no simple and 
efficient way of determining the measure of preemptiveness of an objective relative to 
objectives with lower priorities. It is usually not practical to enforce the preemptive 
solution of multiple objectives simply by using large weights. Other knowledge of the 
system being modeled must be included in order to reduce the required size of the 
weights to within computer accuracy limits. Bv doing so, smaller weights may be used. 
This section deals with methods of evaluating whether the weight placed on an 
objective is sufficiently large to ensure that it is solved in the desired order. 

The degree of separation between objectives can be roughly measured by 
the number of billets in the next lower priority objective which would have to improve 


from the least to the most preferred category within that objective before a reduction in 
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the higher precedence objective would occur. For example, suppose there are three 


ordered objectives with priorities and costs as shown in Table 1. 


TABLE 1 


eeromis OF TAREE OBJECIIVESIN A MULTIOBJECTIVE 
FUNCTION 


Objective Priority Weight Range 
or value 

-100000 to -10000 
-100_to -10 


l | 
2 2 
3 3 





Each of the weights on the arcs associated with the first two objectives lies 
within a range of values. The third objective arc has a single, constant weight. The 
number of improvements in the second objective function from the worst to the best 
case which must occur before there will be a single reduction in the the first objective 
function can be calculated by taking the difference between the highest (worst) cost of 
any objective one flow and the lowest (best) cost of any objective two flow, and 
dividing it by the maximum improvement that could occur in a single objective two 
flow. This gives N,, the number of additional flows in objective two needed to balance 


a reduction in objective one. 


Ny = [(-100 — (-10000)) # (-10 — (-100))| = 110 


A slightly different measure can be used for objective three, which has a 
constant weight along its arc. The number of additional units of flow into objective 


three that must occur to equal the value of a single flow through objective two is: 


N> = [(-3 — (-10)) # -3| = 2.33 


N, implies that any reduction in objective 1 by a single unit would have to 
be matched by at least 110 units of objective 2 improving from the worst to the best 
category to make them of equal value. N- implies that a reduction in objective 2 by a 
single unit would be acceptable if more than 2 more units could be brought into the 
solution in objective 3. It should be clear that nothing definitive about the 
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preemptiveness of the objectives can be inferred from these numbers without also 
looking at the possible, or at least probable, number of units that may flow through 
the nodes of the network. If there are fewer than 110 units of flow possible into 
objective 2 or less than three into objective 3, then both objectives may be regarded as 
preemptive. If that is not the case, then objectives 1 and 2 cannot be considered 
Strictly preemptive using the above weights. However, if evaluation of the matching or 
assignment rules indicates that no more than, say, five or ten units are affected by any 
single other unit with respect to objective 1, or one or two units with respect to 
objective 2, then both objectives may be considered to be “operationally preemptive.” 
In the prototype, many of the objectives are “nested” or contained within higher 
priority objectives, thus the only requirement on those weights is that they be set to a 
value higher than the best possible value obtainable by achieving all lower priority 
objectives. | 

Determination of operational preemptiveness is difficult and may entail 
analysis of the distribution of assignment criteria, or even simulation. In fact, 
experimentation with the weights can and should be done regularly on a working 
mode! to verify that they are sufficient to maintain the desired degree of separation 
between objectives without carrying excessively large coefficients. As can be seen from 
the size of the weights of the first objective in the example, unnecessarily large weights 
can quickly reduce the number of objectives that may be considered before the size of 
the largest weight exceeds computer limitations. 

Table 2 lists the nine objectives in order of their priorities along with their 
weights. Note that none of the weights is large enough to guaranree that no tradeoffs 
will occur since there is a very large flow through the network. Thus, none of the 
objectives is strictly preemptive. However, it can be seen by analysis of the 
substitution rules and experimentation with various weights, that several of the 
objectives act preemptively. Because of the nested nature of the SPL objectives in the 
network, the size of their weights are sufficient to ensure that the SPL’s are filled in 
order, despite their closeness. Because each billet is associated with a single person 
(and thus, a single PCS cost and fit), there is no chance that a single assignment will 
affect more than one PCS cost or SPL fill proportion at a time, and therefore, there is 


no chance of overlap. Hence, the last three objectives are operationally preemptive. 
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TABLE 2 
WEIGHTS ATTACHED TO PROTOTYPE OBJECTIVE FUNCTIONS 


Objective Priority Range/coefficient Symbol 
Fill 1 -99999 ay. 
SPL Fill 2 -40000 el, 
SPL 2 Fill 3 -30000 €2, 
SPC 3orimt 4 -20000 e3 
SP Leer! 5 - 10000 e4 | 
iat 7 -7999 to -100 C 
Peo Cost 8 -99 to -10 Ci 
Ful Within SPL of 9 -9 to 0 we 


Note: Symbols are explained in Section B.1 


4. Priority of Objectives 

The first objective that must be solved is that of maximizing “fill”, which is 
measured by the total number of billets filled in all categories. In practice this 
objective is regarded as most important, so in the model it is included as the first pre- 
emptive objective. Consequently, the arc along which the fill must flow in the network 
will normally have no upper bound. However, since the use of pre-emptive criteria 
precludes the very reasonable practice of allowing a slight tradeoff in a higher ordered 
objective for an extremely large gain in a lower one, the model allows the decision 
maker to reduce the fill to improve the other objectives. This is done by setting a 
maximum flow through the fill arc, which has the effect of setting the selected upper 
bound as an aspiration level. This relaxes the fill requirement and permits more 
flexibility in improving the fit and cost, even though fill is still treated preemptively 
until the minimum fill level is achieved. 

There are five staffing precedence levels among the billets. Top priority jobs 
should be filled first whenever possible without reducing the overall number of billets 
filled. In these “priority of fill” objectives, the fill in each of the SPL’s is maximized 
starting from the highest priority billets (SPL 1) to the lowest (SPL 5). The weights on 
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these five objectives are not controllable by the user since they model the natural 
process of the allocation process itself. Any changes in the policies they incorporate 
can be captured by altering the SPL’s of the billets rather than by changing the fact 
that higher priority billets are filled first. Priority of fill makes up the second through 
the sixth objectives. 

The seventh objective, “fit”, is defined by the El Cards which specify 
acceptable substitutions for each job. In order to be matched to a particular billet, an 
officer must fulfil at least one of the eligibility requirements defined for that job. The. 
criteria are specified in terms of Primary Military Occupation Specialty (PMOS), 
additional Military Occupation Specialties (MOS’s), grade (rank), experience, sex. duty 
restriction, and “officer type.” Since the best fit has the lowest substitution number, 
maximizing fit amounts to achieving the minimum sum of fit scores for a given fill. In 
the prototvpe, fit defaults to the seventh ordered objective. 

The default eighth objective is minimization of Permanent Change of Station 
costs. If the user desires to emphasize the PCS cost objective more heavily, he may 
adjust the weight of the cost objective relative to the fit objective by adjusting an @ 
value which is used to make a linear combination of the two weights. This combined 
“fit-PCS cost” objective is then placed on a single shared arc. The adjustment of the 
relative weights of the two objectives may be carried as far as a reversal of their 
priorities so that PCS cost could become the seventh ordered objective, and fit, the 
eighth. Thus, either may be treated preemptively over the other, or they may be 
weighted somewhere in between by using a linear combination of their values. 
Although it is theoretically possible to allow amy linear combination of the weights of 
the two objectives, in the model, the user is only given the option of making one or the 
other preemptive, or of giving them equal weights. Permitting adjustments of their. - 
relative weights with more precision would not provide any meaningful information to 
the decision maker. 

The final objective is the sharing of shortages within SPL’s. This 
“proportionality of fill” criterion stipulates that qualified officers should be distributed 
evenly among the demands with the same skill requirements within each SPL. 
Although, in the OSGM, this objective is solved right after the priority of fill criteria 
(objectives two through six), it is modeled last in the prototype. In order to assess the 
full impact of tradeoffs in changing the fit and PCS cost objectives, it was felt that they 


should both be solved before shortages were shared among the billets. To restore the 
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precedence of the proportionality of fill objective would require the exchanging of the 


multiplicative factors used to weight it relative to the linear combination of fit and PCS 
cost. 


B. FORMULATION AND DESCRIPTION OF THE MODEL 
1. Mathematical Mode! 


The following mathematical formulation models the capacitated transshipment 
network that is used to solve the multiobjective allocation problem: 


Indices: 
1= l,...,r individual officers (supply nodes) 
ae |... quotas (a specific billet demand node at an MCC) 
k = L..d index of arcs lying between quota } and quota 
group h 
= 13:,U quota groups (node which aggregates all quotas 
with the same fill priority/SPL) 
pool node 
: sink node 
pet: 
Q(h) set of all quota j’s assigned to quota group h, 
equivalent to the set of all quotas in an SPL 
Data: 
a parameter value to determine relative weight of fit 
| to PCS cost in the objective function 
a;c cost of selecting artificial arc from node 1 to sink S 
d; demand at the jth quota | 
np cost of using the arc from quota group h to pool P 
fii un-scaled fit cost on the arc between supply 1 
and quota 
i; PCS cost on the arc between supply 1 and quota | 
Vv scaling coefficient for fit used to find Ci 
Ups | upper bound for flow from pool node P to 
sink node S 
Cost Functions: 
Ci: cost of traveling from supply i to quota j 
ih cost of selecting the kth arc between quota j and 


the quota group h associated with quota 


Sy 


Cost Function Equations: 
C= axvx fi a (1-a) x gi; (2) 


I 
ok, = I/d; X (k-0.5) (22) 
Decision variables: 
an flow between any two nodes m and n in 
the network 
Xr flow on the kth arc between quota j and 
quota group h 
Formulation:!! 


min Di aig * is + Dh ep * pp + Didjey *%yj + Lad iDa jn * en (23) 


S.C. >; a : yk XK = 0 forall ] (2.4) 


ae xe Xp = Ua omale (220) 

ie Xpp [ADC] a 0 (2.6) 

Xps 3 he ASS a ok (258) 

Xig + Das = 1 foralli (2.8) 

Soe >» d (2.9) 
jeQ(h) ? 

0s Xe = for all h,j,k 


Xmn integer 


2. Description of the Formulation 


The network assignment model used in the prototype is a modification of a 


formulation presented by Klingman et al. in [Ref. 4] which permits inclusion of 


multiple pre-emptive criteria in a single network. The formulation used in this thesis is - 


a capacitated transshipment network which includes provision for controlling certain 


objective function priorities and setting an aspiration level for fill. Figure 3.1 depicts 


the network model that was used in the prototype. 


'lFor notational simplicity, all summations are assumed to be over the entire 


range of the indexing variable, unless otherwise noted. 
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Figure 3.1 Diagram of the Capacitated Transshipment Network. 
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Structurally, the network is nearly identical to the maximization model 
presented by Klingman et. al. in [Ref. 4] and (Ref. 5] There are, however, several 
differences. First, the prototype model provides for the combining of objective 
function coefficients on some arcs to permit the mixing of the fit and PCS cost 
objectives. Additionally, an upper bound on fill may be set as an aspiration level. 
Finally, the formulation presented in [Ref. 4] and (Ref. 5] is a maximization, but 
because GNET solves the minimum cost problem, the sign of the costs in this 
formulation has been reversed. 

Because individual relocation costs have to be considered in this formulation, 
It was not possible to aggregate the supply of officers into groups as Klingman et al. 
suggest. However, in order to reduce the size of the network that must be solved, all 
billets with the same set of substitution criteria and SPL that are located at the same 
MCC are grouped into what Klingman et al. call “quotas” [Ref. 4.] Additionally, all 
quotas with the same SPL are grouped into “quota groups.” The nested structure of 
the resulting network helps to reduce the magnitude of costs that must be used on the 
arcs. 

The nodes on the left of Figure 2-1 represent the supply or “inventory” of 
those officers eligible to move into jobs and are indexed by 1. The arcs coming out of 
these nodes represent potential matches to the specific jobs which are grouped into 
quotas (indexed by }) in the second column of nodes. Those quotas having the same 
priority (SPL) are further grouped into “quota groups” which carry an index of h. 
Total demand is combined in a “pool” node P which sends the flow to a final “sink” 
node S which draws the flow through the network. 

Flow through the entire network is enforced by constraint equations 2.7 and 
2:00 EQUATION 2.3, 


Xig + Loa = 1 for alli (2.8), 


states that each of the r supplies, indexed by 1, must flow either into a quota as an 
acceptable match, or into the sink. By forcing everyone in the inventory to travel one 
of these two paths to the demand or sink node, this equation makes possible the 
maximizauon of fill by attaching a very high cost (99999) to the arcs going directly to 
the sink from the inventory as compared to the cost through any of the quotas. 
Equation 2.7 


ADS a Di XS a (2573 


42 


ensures that total flow into the sink from the pool and the inventory, equals the 


supply. 
3. Solution of Component Objectives Functions Within the Overall Objective 
Function 


The overall objective function (2.3) 1s to minimize the weighted sum of the 
“costs” of sending the inventorv (supply) of Marine officers through a capacitated 
network. The discussion that follows explains in detail the structure of the network, 
how the component objectives are achieved, and how the problem may be controlled 
by the user. 

a. Maximizing Fiil 

The primary objective of maximizing the total number of billets filled 1s met 
by setting the costs on the “artificial” arcs which run from the supply nodes 1 to the 
sink S equal to a very large number. Since fill 1s to be solved preemptivelv in practice, 
the cost for failure to fill a billet was set ten times higher than the difference between 
the best and the worst fit in any category. This means that in order for a billet to be 
left unfilled, the gain to the overall solution from leaving that job empty would have to 
be at least equal to the added value of improving 10 billets from the lowest priority 
jobs to the highest. 

There may be occasions when the decision maker would like to see the 
effect of sacrificing some amount of fill to improve the fit or the PCS cost in the 
solution. This can be done without changing the priority of the fill objective by 
reducing the upper bound, Upc, on the flow from the pool to the sink node. Since the 
user will know the fill from the previous solution, he may reduce the value of upc 
below the previous level in order to give GNET greater flexibility to improve the fit- 
PCS cost objective. To restore preemptive fill maximization, he need only increase the 
upper bound to some number greater than the initial solution. 

b. Maximizing Fill in High Priority Billets : 

Once the primary objective of filling the maximum number of billets has 
been met, the billets are to be allotted so as to maximize the number of billets in the 
high priority quota groups (SPL’s). As with maximizing fill, the idea is to determine 
costs with a sufficiently large differential to ensure that the priority discipline among 
the precedence levels is maintained. Because of the relative independence of individual 


allocations, it was possible to achieve this with relatively low weight differentials 
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between the quota groups and the pool node. The balance constraint for the flow from 
each quota group to the pool ts given in the following equation: 


Dh XhP * Xpg = 9. (2.6) 
c. Fit-PCS Cost Objective 


The objective function coefficients on the arcs from supply 1 to quota j 
represent a weighted linear combination of the scaled fit and PCS costs. Both PCS 
cost and fit are defined such that lower values are better, thus no transformation of 
their values is required. However, the magnitudes of the measures of fit and PCS cost 
are quite different. Whereas PCS cost values range from 0 to 8500, fit ranges from 1 to 
5. To make their values more comparable, fit was scaled to range from 0 to 8000. 

Lr tii is the unscaled value of fit, 85 is the PCS cost, h is the scaling factor 
for fit, and @ is a pre-selected weighting coefficient, the objective function coefficient 
on the arc from supply 1 to quota j is found by the equation: 


c= axv x fi 7° (1-a) x g: (210) 


In the model, @ is initially set to 0.99, effectively making fit a preemptive 
objective over PCS cost. Note that by adjusting @ between 0 and | before each re- 
formulation, the decision maker can change the relative priority of the two objectives. 
To avoid excessive and meaningless manipulation of this parameter in an effort to 
force the model to attain some preconceived solution by adjustment of a, the decision 
maker is given only three options. If he chooses to make fit preemptive over PCS cost, 
then @ is set to 0.99. If PCS cost is to be preemptive, then a = 0.01. If both 
objectives are to be weighed equally, @ = 0.50. 

Equation 2.4 shows the flow balance constraint for quotas. 


i, a 
ce De n= O forallh (2.4) 


From this equation and the constraints 


0s Xpp < y d for all h (2.9) 
j€Q(h) 3 
it is clear that the total flow into a quota must be limited to the demand at that quota, 


which also corresponds to the number of arcs out of that quota. 
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d. Proportional Fill Objective 

Having met the first eight objectives, it is desired to make all quotas within 
quota groups share resources (and hence, shortages) whenever possible. This objective 
must not reduce either the total number of billets filled, the number filled within each 
of the quota groups, nor degrade the fit-PCS cost solution. Additional arcs from 
quotas to quota groups are used to ensure this proportionality of fill within priority 
levels. Klingman et. al. present a method for also enforcing a disproportionate share 
policy in (Ref. 5.] However, this option is not developed in the prototype because such 
a requirement arises infrequently. 

Implementation of the objective to proportionately fill within each SPL 
requires the generation of additional arcs going from the quotas to the quota groups. 
A single arc for each unit of demand at each quota is generated with an objective 
function coefficient designed to ensure the sharing of resources. Thus, if a quota has a 
demand for three billets, there will be three arcs going from the quota to the quota 
group. This is practical only because most quotas have a demand of between one to 
five. In the prototype, there were approximately 5,700 arcs going from the 2000 
quotas to the four quota groups represented. Since there had to be at least 2,000 arcs 
in any case, the generation of arcs to meet the proportionality objective resulted in the 
addition of approximately 3,700 arcs out of a total of 81,000 arcs in the entire network, 
or about 4.6 percent. 

The size of the coefficient that enforces the proportionality constraint 
depends on the number of demands at the particular quota. Each quota j is associated 


with a unique quota group h. If d; is the demand requirement at the jth 


quota in 
quota group h, then there will be d; arcs going from quota j to quota group h. I[n 
_.(Ref. 5] Klingman et. al. develop a coefficient which ensures that the minimum 
difference in percentage fill among quotas in a given quota group will be achieved. 
Based on their work, the following coefficient was adopted for the use on the arcs 
between some quota j and quota group h: 
we = 1/d; x (k-0.5) 22 
The 0.5 constant is used to keep the value less than one. 
In the event of severe shortages of certain types of personnel, a straight 
proportionality distribution scheme mav assign several individuals to a quota with a 
large demand before filling a quota with a single requirement. In practice, however, 


single billet quotas may represent a critical requirement for a command and should 
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receive exceptional consideration in the distribution of resources. For that reason, the 
objective function coefficient for the proportionality fill constraint for single demand 
quotas is rounded down to zero which will cause those billets to be filled first. 
Flow balance constraints for quota group h are reflected in constraint 
equation 2.5. 
vik Xin > Xpp = 0 forallh (2.5) 
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IV. SUMMARY OF RESULTS AND FUTURE ENHANCEMENTS 


The first half of this chapter contains a summary of the results obtained from 
running the prototype model. In order to understand the results, a brief summary of 
the simplifications included in the model is presented first. The second half of the 
chapter consists of a two part discussion of future enhancements. The first section 
presents changes to the prototype which should be made as part of turning it into a 
full scale model. into a full scale model. Next are listed some possible applications of 


the system in manpower policy or budget analysis. 


A. SUMMARY OF RESULTS 

In order to interpret the implications of the results, it will be helpful to review the 
simplifications made.in the model. The following simplifications were made in 
developing the system: 


1. The prototype only considered officers with PMOSs which are related to 
aviation in order to reduce the size of the problem. This is about 35-40 percent 
of the Marine Corps. 


2. Only substitutions containing specific MOSs and grades were considered. All 
substitutions indexed by officer type, OCC field, or AMOS were omitted in 
order to reduce the size of the problem. This effectively reduced the number of 
billets that were considered, since many staff billets do not require a specific 
MOS and are defined by officer type, OCC field, or AMOS. (See discussion in 
Section B.1.b.(1).) 


3. No adjustment is made to the inventory to account for accessions in order to 
simplify the model. 


4. No cost tables were developed to accurately estimate costs. Rather, a constant 
(2000) was added to the distance between the cost centers of the two MCCs 
involved in any match, and this number was used as the PCS cost. 
Development of cost tables is beyond the scope of this thesis. 


Because of the above simplifications put into the model, it does not consider 
every possible person-to-billet match. Therefore, the only legitimate analvsis of the 
solution lies in checking the reasonableness of the output and whether the changes to 
the various parameters caused sensible adjustments in the subsequent solution. 

Some detailed analysis was performed on two small networks whose optimal 
solution was known. Because these two networks were input as sorted lists of potential 


matches (equivalent to the output from the sorting routine), no manipulation of the 
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TCF was performed. However, the correct formulation was generated by NET-GENX 
and the optimal solution was achieved in all cases, including when the fill aspiration 
level and Fit-PCS cost weights were changed. When the PCS cost and fit data in the 
two test networks was changed, a correct formulation was produced and the correct 
solution was once again attained. 

The prototype was also run using the inventory and billets relating to aviation 
and aviation support MOSs. The inventory of 7,116 Marines was matched to a 
comparably sized demand. Because only those El Cards containing a specific MOS 
and grade were considered, the number of billets available to be filled was reduced by 
about 22 percent to 5,600. A total of 73,175 people-to-billet matches were generated. 
This grew to 78,784 arcs in the capacitated transshipment network with 73,175 arcs 
from individuals to quotas, 5,600 from quotas to quota groups, four from quota groups 
to the pool, and one from the pool to the sink. The solution fromthe first pass 


through the system is summarized in Table 3. 


TABLE 3 
SUMMARY OF INITIAL SOLUTION OF THE PROTOTYPE 


Demand Pct Fill PCS Cost Ave Fit 





Note that there were no demands for any SPL 1 billet. There are no SPL 1 
billets among the aviators, so none appeared in the solution. Note also that most of 
the billets are SPL 3 or 5, which reflects the actual current ordering of Mamne Corps 
priorities in peace time. Out of 5600 billets defined in the problem, 3798 were “filled” 
by having individuals in the inventory matched to them, for a fill percent of .678. The 
fill percentages in the SPL 2 to 5 billets seem to indicate that the model was in fact 
filling the higher SPL billets first. As was already mentioned, the average cost figure 


was derived from an artificially constructed cost table, and cannot be used for cost 
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analysis yet. Also, PCS cost and average fit were not extracted from the solution in 
order to reduce the complexity of the prototype. 

The low fill percentages, especially in the last two SPLs are reasonable. All those 
expected to retire and all reservists whose contractual obligation ended during the 
period considered in the model are deleted, and no adjustment is made to increase the 
inventory to account for accessions. Also, because the system does not consider any 
matches involving El Cards with officer types or non-specific PMOSs, all those fixed 
officers assigned to billets described by such El Cards who do not get allocated are not 
counted as filling any billet. About 25 percent of all billets fall into these two 
categories, most of which are SPL 4 and 5 jobs. When these factors are considered, 
the percentage of fill figures appear much more reasonable. 

Additionally, the fill percentages among the SPLs suggest that the SPL fill 
objectives were solved preemptively. To test this, the weights on each SPL objective 
were individually increased by a factor of ten to see if the ordering of fill percentages 
would remain the same. In all cases, the solution to the problem did not change, 
indicating that the weights placed on the arcs between the quota groups and the pool 
node were adequate to insure that the SPL objective functions are solved in the desired 
erder. 

Several changes were made to the parameters of the problem to test the 
operation of the programs that control user modification of the problem. 

The first adjustment that was made consisted of reducing the fill to improve the 
fit-PCS cost objective. Since the initial solution yielded a total fill of 3,798, the 
aspiration level for fill was lowered to 3,600. The solution to the modified problem 
showed an improvement in both PCS cost and Fit. The average PCS cost dropped 
from $3344.00 to $2821.00, and the average fit changed from 2.67 to 2.41. It is 
possible that both may not improve in all cases. In another run, using a slightly 
different inventory (a subset of the one used in the prototype), a reduction in fill 
resulted in an improvement in the fit (the high priority objective) and a degradation of 
the PCS cost solution. This is reasonable if the new reduction in fill opened up more 
possibilities of improving fit at the expense of the PCS cost objective. 

Next, the order of the PCS cost and fit priorities was reversed, and the aspiration 
level was removed from fill. In this case, however, there was no change in the solution, 
indicating that there were no ties remaining for the solver to improve the last two 


objectives. In the two smaller problems with known optimal solutions, the coefficients 
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were set to ensure that there would be ties, and the solution indicated an improvement 
in PCS cost, as expected. 

Finally, changing eligibility for transfer through the TCF adjustment factor 
resulted in the expected changes in the fixed and free inventories. Increasing the" ?'@r 
increased the number of fixed personnel, while decreasing it increased the number of 
free personnel. This is exactly what would be expected since increasing the TCF causes 
people to stay in their billets longer, thus reducing the turnover rate. Reducing it 
should increase the number of movers since people will move more often if tour lengths 
are decreased. 

It is not possible to precisely estimate the impact of a change in one of the 
factors on the overall solution because of the many interactions involved, which is why 
the system is needed in the first place. However, it is possible to determine if the 
resulting change is reasonable. In all cases that were attempted on the prototype, the 
effect on the solution of a change in one of the user-controlled parameters was 


reasonable. 


B. FUTURE ENHANCEMENTS 

The prototype system presented in this thesis does not exhaustively include all 
specific factors affecting the allocation process. Instead, it is designed to permit the 
incorporation of as many broad categories of factors (such as extraction rules, 
matching criteria, and objective priorities) as possible through the use of flexible data 
extraction and network formulation. In this section, a number of possible future 
enhancements are listed which could improve the speed, realism, or completeness of the 
system. Also, some examples of possible applications of the capabilities of the 
resulting model are discussed. 

1. Possible Improvements in Speed, Realism and Completeness 

a. Improvement in Speed of Execution 
The primary goal of this thesis is to demonstrate the feasibility of the basic 

design concept, not to minimize execution time. Numerous extra files were added, 
both to assist tn following the internal processes of the program and in anticipation of ~ 
files that might be helpful to possible future users.!* Therefore, solution times should 
not be used as an absolute gauge of the performance of the basic model. Nonetheless, 


there 1s an obvious legitimate interest in reducing execution time. In this section, the 


l2For example, in FREE-FIX one of the files that is generated contains all those 
who are expected to retire or leave during the next year because of the end of their 
reserve contract obligation. 


50 


solution times achieved in the prototype will be used as rough benchmarks for the 
areas that promise the greatest return for improvements in efficiency or speed. Table 4 
lists the programs and the execution times achieved when the model was run using all 
Marine Corps aviation officers and billets (Approximately 7,100 supplies and 5,600 
demands). 


TABLE 4 
SUMMARY OF COMPONENT PROGRAM SOLUTION TIMES 


Program Language Run Time Percent of Rank (#1 | 
Name (CPU sec) Total Time is Slowest) 
NIT LIZE FORTRAN 0.07 0.01 19 
FREE-FIX SAS ; 47.67 6.99 4 
ADJ-LIST FORTRAN eee 0.02 18 
ENTRY-PT FORTRAI 0.33 0.04 ey 
ROLINV SAS 3.99 0.50 it 
XPASR SAS eG 0.19 Is 
C1ASR SAS 3.69 0.46 os 
INVNTRY1 SAS ee 0.91 10 
ADJ-LIST SAS 2.63 0.33 14 
EXCESS FORTRAN SEO 0.44 is 
ASRE2A SAS 13.06 1.64 9 
ASRE2B SAS 15.00 1.88 7 
E2ASREIA SAS 14.11 lea 8 
E2ASREIB WAS ; G52 2.08 6 
MATCH-AL FORTRAN 39.80 5.00 5 
BIGSORT SAS FOS .3 7 13.24 2 
NET-GENX FORTRAN 59.31 7.45 3 
GNETBX FORTRAN 459.00 57.66 | 
SUMMARY FORTRAN 1.50 0.19 16 
HOTAL NA 796.08 100.00 NA 


There are two ways that offer good promise in speeding up the execution 
time of a single pass through the system: solution of each objective function 
successively, and conversion of all programs to Fortran. 

(1) Iterative Solution of the Network Formulation. Almost sixty percent of 
the run time is taken up in the solution of the network formulation in GNETBX. 
Recall that all priorities are solved in a single pass through the use of weights. The 
research of Klingman et al. [Ref. 5] suggests that solution of each of the objectives in 
order of its priority might be computationally faster. After each component objective 
is Optimized, the optimal flow value would be placed on the appropriate arc as a lower 
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bound on the flow. This approach can only be used when the optimal value of the 
objective function can be expressed as the flow along a single arc. If an objective 
function requires more than one arc, then setting the lower bounds on those arcs to the 
optimal flows will overly constrain all subsequent objective functions. Thus, this 
technique can only be applied to those priority objectives up to the first objective 
function requiring more than one arc. All subsequent objectives must be solved using 
some other method, such as weights. 

This approach could be built into the system by modifying the way 
that NET-GENX determines arc costs and bounds, and changing the EXEC program 
so that the component objective function solution from GNETBX would continue to 
be sent back into NET-GENX until all objectives had been solved, there were no more 
ties, or the program reaches the first objective that is no longer expressible as the flow 
on a single arc. 

(2) Conversion of SAS Programs to Fortran. SAS was used extensively in 
the programming of the system because it is a convenient language to use for 
manipulation of data, and because of its simple sorting, merging, and matching 
routines. Unfortunately, unlike Fortran, SAS lacks the capability to read in multiple 
data sets simultaneously. This could speed up the ASRE2A, ASRE2B, E2ASREIA, 
and E2ASREI1B programs which must read some large data sets several times because 
SAS cannot read part of a second data set while another one has not yet been 
completely read. Also, interactive use of SAS involves a large amount of overhead 
even for small data sets. Finally, it might be possible to improve the 105 seconds of 
CPU time required to sort the 78,784 people-to-billet matches in BIGSORT by use ofa 
specially tailored Fortran sorting routine. By conversion of the entire system to a 
single language, speed and clarity might be increased. All file definitions and 
compilation could be done at once, and there would be no need for an EXEC control 
program, Since the entire system could be controlled within a Fortran main program. 

Another change that would reduce the run time in an actual 
implementation is the elimination of any of the extra files that were generated in the 
prototype, once it is determined which of those files will not be useful to the decision 
maker. Reduction of the run time of the system would permit the inclusion of more 


options to make the model more accurate, versatile, and “user friendly.” 
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b. Improvement in Realism and Completeness 

Since the prototype contains the functional structure rather than the 
complete implementation of the concept, many assumptions and simplifications were 
made to arrive at a simpler system. These should be checked one by one and, if 
necessary, removed in any full scale design of the model. Additionally, the prototype 
model includes a number of programming simplifications which should be eliminated in 
the full scale version. These include: 

Limited error checking on the input data 


2. Limited error checking on the user inputs to the interactive part of the model to 
prevent program termination due to a typing error by the user. 


3. Failure to calculate the average PCS cost and fit within each SPL. 

(1) Develop Pre-Processor to Check Input Files. Most of the programs 
contain checks to filter out bad data on the input files. They could be streamlined 
somewhat if certain checks on the integrity and completeness of the input files were 
run as they are being read in from Marine Corps files the first time. This was not done 
in the prototype, because most of the potential problems with the data were 
determined while the programs were being written, and it was more convenient to 
perform the check at the point where the flaws were detected. | 

(2) Develop Enhanced Solution Presentation and Options. The summary of 
the solution which is presented to the decision maker is collected from several files 
which contain pertinent data on the flows through the network as well as the 
parameters used to define the formulation. In the prototype, the statistical summary 
presented to the user is very rudimentary. In a full scale model, the user will want the 
option of exploring the distributions of resources in the allocation solution in much 
greater detail than given in the prototype, including interactive selection of different 
statistical summaries of the solution. For example, the user may desire to see a 
breakdown of the solution by OCC fields, MOSs, MCC’s, or broad geographic areas. 
By extracting additional information from GNETBX and the files containing the user- 
defined parameters, the solution presentation could be greatly enhanced. Possible 
areas of interest to a decision maker include the staffing within certain OCC fields, 
MOSs, grades, and MCCs. Finally, addition of written reports to summarize the 
_ various solutions would be desireable. 

(3) Generate All Possible Matches. There are three primary ways of 
matching individuals to billets based on the type of El Card used for a given billet. 
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One method is indexed on the PMOS and grade, another on AMOS or OCC field and 
grade, and the third on officer type and grade. The prototype generates matches only 
for the first type of El Cards, those which contain an explicit PMOS along with six 
other criteria: grade, AMOSI1, AMOS2, experience, sex, and duty restriction. By 
matching with those El Cards, the model demonstrates the basic logic and efficiency of 
the matching program while reducing the size of the matching routine in the prototype, 
since 1t would take more than 1000 additional lines of Fortran code to implement the 
last two El types. However, this ignores about twenty-five percent of the El Cards, 
which is clearly unacceptable in an implementation where all matches must be found. 
Therefore, the remaining El cards must be matched in any full scale operational 
system. The program MATCH-AL is wmitten so that appropriate subroutines could be 
inserted to accomplish this without disturbing the flow of the program. 

(4) Account for Frictional Losses. In the prototype, the inventory 1s 
reduced by the number of officers who are expected to retire or whose reserve contract 
expires during the period of the model run. The number of officers who are actuaily 
considered for ailocation snouid be further reduced to account for attritions, and non- 
availability due to training, transfer, or other reasons. Estimates of these losses, called 
Prisoners, Patients, Transients, and Trainees (P2T2) losses, are made by Headquarters 
Marine Corps and are contained in a Dictionary file called WKE3 CRD. The “E3 
Cards” which make up this file list the reduction in numbers of Marines with a 
particular MOS and grade due to P2T2 losses. No such adjustment to the inventory 
was made in the prototype., P2T2 losses could be accounted for in two ways. First, 
the MOS/grade combinations listed in the E3 Cards could be treated as demands and 
added to the ASR with an SPL of 0. This would cause them to be filled first, although 
there is a chance that some of the imaginary P2T2 “billets” would not be “filled” just as 
some billets in every SPL may go unfilled. The other way is to reduce the indicated 
MOS/grade population using a random sampling procedure. 

(5) Account for Accessions. The “F3 Cards” contained in the fle WKF3 
CRD give the numbers of accessions to the inventory by grade and MOS. These could 
be included by addition of the number and type of individuals indicated on the F3 Card 
to the inventory at some appropriate MCC. 

(6) PCS Cost Data. The program MATCH-AL attaches a PCS cost to 
each person-to-job match using a matrix indexed on the Cost Centers of the individual 
and the billet. The PCS cost values contained in the matrix are equal to the distance 
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between the Cost Centers plus an arbitrary constant (2500) which was chosen to make 
the values seem reasonable. Actual cost tables need to be developed before PCS cost 
can be included in an actual implementation. If a PCS cost matrix that 1s indexed on 
grade as well as Cost Center is developed, the model could be modified to capture even 
more accurate relocation costs. 

(7) Redefine Reassignments. In the prototype, reassignments are 
permitted only to other billets at the Marine’s current MCC. In practice, however, 
they could be made to any other MCC within a 50 mule radius of the current MCC. 
Additionally, there are certain regions, defined by Marine Corps directive, within which 
reassignment is permitted even if the distances between MCCs exceeds 50 miles. This 
was not done in the prototype because there is no readily available file which groups 
the MCCs into such regions. The Cost Code Centers which are used to estimate costs 
are not suitable surrogates for these regions since they are not sufficiently restricted in 
range to ensure the 50 mile restriction. (In some cases, MCCs within the same Cost 
‘emter are located more than 500 miles apart.) Development of an array which 
determines if reassignments between pairs of MCCs is legitimate was beyond the scope 
of this thesis, but would be a valueable enhancement to the system. 

2. Applications 
There are certain sections within some of the functional areas which could be 
modified to permit a variety of future applications that would enhance the model's 
usefulness as an analysis tool. 
a. Data Extraction 

In the prototype, the TCF adjustment is applied equally across all billets. 
Allowing for different TCF adjustment factors within OCC field groups or MCC 
regions (eg. all overseas commands) would enable the decision maker to analyze 
specific policy proposals with regard to eligibility and tour length requirements. 

The system presently determines fixed and free inventories by applying the 
TCF eligibility criteria to all individuals who are eligible to move one year from the 
date that the model is run. This is called the “window” of eligibility. By allowing an 
adjustable window so that the user may look at some time frame other than one year, 
the decision maker can evaluate the staffing goal using different.planning horizons. 

In the list of simplifications, in Section A it was mentioned that no 
adjustment is made to account for accessions. However, such a capability does exist in 
the OSGM through the use of files that estimate the numbers of particular MOS-grade 
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combinations that are expected to enter the Marine Corps during the window of the 
eligibility. These estimates are used to increase the inventory in the appropriate MOS 
and grade categories before the allocation model is run. These files could be adapted 
to permit the addition of any number of certain MOS and grade combinations. By 
allowing the user to generate additional people of any desired description (ie. MOS, 
grade, etc.) the system would provide the capability to analyze the staffing fill if the 
Marine Corps were to increase the training quotas for certain groups or try to increase 
retention within certain MOSs using some incentive such as bonuses. 
b. Data Preparation 

In this thesis the adjustment of supply and demand is based solely on the 
existing inputs from Marine Corps files, and is updated by a file that contains recent 
changes to the ASR. Addition of a module to alter the file used in the update could 
create a capability for the decision maker to evaluate the impact of hypothetical 
changes to the structure as well. Certain common unit organizational structures and 
_ individual billets could be pre-input into the WKCI1 CRD file and turned “on” or “off” 
using binary flags which could be set bv the user. Normally these flags would be off, 
meaning no changes to the structure. But if the user wished to test the staffing goal 
with, for example, an additional three battalions in the Second Marine Division, he 
could turn on the appropriate flag and designate where the addition is to occur. When 
combined with the ability to change the numbers of various officer types, this 
tremendously expands the potential analvsis capability of the model. 

ve Problem Formulation 

In the prototype, only PCS cost and fit may have their objective priorities 
- reversed, and only fill may be reduced by setting an aspiration level. Theoretically, all 
objectives could have the capability of changing priorities, and those that can be 
captured by the flow on a single arc may have aspiration levels. In Chapter III, the 
concept of using pairwise weighted costs to give the user control over the relative 
priorities of pairs of objective functions was presented. The same principle could be 
extended to include other pairwise matchings of related factors. By using binary “flags” 
in the control program to turn the costs attached to these pairs of criteria “on” or “off”, 
the effect of tradeoffs among numerous combinations of objectives could be modeled. 
By grouping related pairs of criteria and placing the weighted coefficients from their 
linear combination on an extra set of arcs connecting the appropriate families of nodes, 


a large number of additional related policy or criteria tradeoffs could be modeled and 
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tested. For example, there are many factors related to the matching of people to billets 
which could be quantified: in the matching program, such as grade or MOS 
substitutions, experience flags, and time since last overseas deployment. These 
measures would be scaled to be roughly comparable in size and fed to the network 
generation program. Once the appropriate on/off flags are set by the user, the problem 
could be formulated to evaluate the impact on the staffing goal of such policy 
alternatives as loosening grade/MOS substitution criteria or changing the present 
policy on time between overseas assignments, rather than just comparing the tradeoffs 


between fit and PCS costs, as is done in the prototype. 


> 


V. CONCLUSIONS 


The system presented in this thesis demonstrates the feasibility of building an 
integrated decision support system that uses readily available data files and existing 
software to analyze the impact of policy and budgetary changes on staffing levels in the 
Marine Corps. The system design incorporates a number of practical features which 
make it an excellent framework on which to build a larger scale implementation. 

The results of running the prototype using only aviation officers seemed to 
indicate that the multiple objectives incorporated into the model were being met in the 
desired order. 

The system utilizes data files that already exist, and would therefore not require 
the development, validation, or maintenance of a new set of Ales. The modular 
structure of the svstem facilitates the addition of enhanced capabilities without making 
any fundamental structural changes to the system. 

All of the system progtams except for the VS EXEC controller routine are 
written in languages which are available on the Marine Corps mainframe at Quantico, 
Virgina. The SAS programs can be directly imported to the Quantico computer, and 
the Fortran programs require only those changes necessary to convert from YS Fortran 
to Fortran 77. The functions performed by the control program can be programmed 
into a TSO EXEC, which is very similar is syntax and structure to a VS EXEC. 

The system may be used to answer a wide variety of questions by adjusting 
policy related parameters. This includes changing the rules determining eligibility for 
transfer, changing the priority of certain objectives, and adjusting the aspiration level 
for total fill. Thus, the user may ask “what-if” questions regarding numerous policy 
and budgetary proposals. 

In its role as a prototype, the system was not designed to provide an exhaustive 
exploration of possible outcomes even within the PCS cost area. Rather, the model 
demonstrates the feasibility of using a control module, various data extraction and pre- 
processing modules, and a set of programs which permit vanable formulation of a 
network assignment problem, to provide a decision maker with the ability to evaluate 
the staffing levels in varying scenarios. Further development of the various concepts 


applied in this prototype are required before any full scale implementation can be 
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constructed. However, the basic design of the system offers the potential to improve 
the ability of Marine Corps decision makers to wisely manage their limited manpower 
and budgetary resources in the years ahead. 
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APPENDIX A 
THESIS EXEC 


1 CMS EXEC PROGRAM TO PROVIDE OVERALL CONTROL OF THE 
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* 

z x * * * PROGRAM NAME: THESIS EXEC * * * & 

x KR RRR RK RR KR KR KR KR KK KR KR KR KR KR KR KKK KR KR KR KR KR KKK KKK 
* 

* x x * OVERVIEW AND PURPOSE * * * 

rad 

x THIS IS A CMS EXEC PROGRAM DESIGNED TO PROVIDE OVERALL CONTROL 

* OF THE PROGRAM FLOW THROUGH THE DECISION SUPPORT SYSTEM. 

* THE COMPILATION OF FORTRAN PROGRAMS AND DECLARES FILEDEFS AT THE 

* APPROPRIATE TIME. IT DIRECTS THE 
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* HAS CHANGED. 
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-ALP 

&TIME ON 

&TIME RESET 

&FN = INITLIZE 

-H FORTVS &FN 

-RUN 

FILEDEF 1 DISK ALPHA DATA A 


PILEDER. 2 DESK UPER=cND DATs 
FILEDEF 3 DISK BESTNUM DATA & 
FILEDEF 4 DISK TCF-ADJ DATA A 
SEME RESET 

LOAD &FN (START 

SPEME RESET 

EXEC oso EPREB=FIXA 

SLIME RESET 

&COMMAND ERASE TEMP INVENTRY A 
SEEMETRESE 

EAPC PSAS SA VEr IAD 

SLEME RESoE 

&FN = ADJ-LIST 

FORTVS &FN 
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&TIME RESET 
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ele Rio 
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Sins RESET 
EXEC SAS C1ASR 


SME RESET 
EXEC SAS ADJ-LIST 
&TIME RESET 


&EFN 


= EXCESS 


FORTVS &FN 


FILEDEF 
FILEDEF 
BILEDEF 
FILEDEF 
POELEDEF 
FILEDEF 
mULEDEF 


14 DISK 
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18 DISK 
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EXEC SAS ASREZA 
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ADJ-LIST ALL=-BIL A 
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EXCESS PERSONL A 
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&TIME RESET 
EXEC SAS ASREZB 
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EXEC SAS BIGSORT 
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FILEDEF 
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FILEDEF 
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BEEEDEF 36 
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FILEDEF 38 DISK SUMMARY INFOl A 
FILEDEF 36 DISK TNUMQG DATA A 
FILEDEF 03 DISK BESTNUM DATA A 
FILEDEF 39 DISK BSTNUMB DATA A 
LOAD &FN (START 
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FILEDEF 35 DISK NET-INFO DATA A 
FILEDEF 28 DISK SUMMARY ENFOD@aL 
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FILEDEF 43 DISK TCFXADJ DATA Al 
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&TYPE DO YOU WISH TO RE-RUN THE PROBLEM WITH NEW WEIGHTS / BOUNDS (W), OR 
STYPE THE ENTIRE PROBLEM INCLUDING POLICY CHANGES? (P) 
SEVERE TOR, DG YOU WISH TO OUlT2 (0) 
&READ VARS &RCOMP 

&IF &RCOMP EQ W &GOTO -WTS 

SIP &RCOMP BO Puscetousare 

&IF &RCOMP NE Q &GOTO -RAK 
SEXIT 
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APPENDIX B 
INITLIZE FORTRAN 


PROGRAM TO INITIALIZE PARAMETER VALUES 


REKKRKKRKKKRKRERRKEKEKKKEKRKAKRRKKKRERRERKRRKKRAREKRKRRKKEKRKRRKREAREKKRRKKRKKKKARRKRER 
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* 
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* 
x 
* 
x 
x 
x 
* 
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x 
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x 
x 
x 
x 
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x 
x 
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x 
* 
x 
x 
* 


* 
* 


PROGRAM NAME: INITLIZE FORTRAN 


meme eK KERR KEKE KKK KKK OK OK KK KR KR RK KR RR KR KR KK Re RK 


OVERVIEW AND PURPOSE 


THIS PROGRAM INITIALIZES THE VALUES OF CERTAIN VARIABLES LOCATED 
IN INPUT FILES WHICH WILL SE READ IN DURING THE FIRST PASS THROUGH 


MeireeoYoleM. THEY MIGHT LATER BE MODIFIED BY THE USER IN SUBSEQUENT 


BaostS ITHROUGH THE MODULES IN THE SYSTEM. 


IN ORDER TO ALLOW THE USER TO CHANGE THE WEIGHTS ON THE FILL 
FIT OBJECTIVES, THE ASPIRATION LEVEL FOR TOTAL FILL, AND THE TOUR 
menrROL FACTOR, IT IS NECESSARY TO ESTABLISH FILES TO CONTAIN THE 
USER-DEFINED PARAMETERS. HOWEVER, THESE PARAMETERS ARE NOT INPUT 
Ex ihe USER UNTIL AFTER THE FIRST PASS THROUGH THE NETWORK SOLVER. 
BaeRePORE, IN ORDER TO MAKE THE PROGRAMS WHICH READ THE USER-INPUT 
PARAMETERS BE ABLE TO SOLVE THE PROBLEM BEFORE THE USER MAKES ANY 
DESIRED CHANGES, IT IS NECESSARY TO INITIALIZE THE FILES TO DEFAULT 
Peemucoennocn WILL CAPTURE CURRENT POLICIES. THUS, THE TCF ADJUST- 
ferleCONSTANT IS SET TO 0, MEANING PRESENT TCF POLICIES HOLD IN THE 
FIRST RUN OF THE SOLVER. THE VALUE OF ALPHA WHICH DETERMINES THE 
eeeetive PRIORITIES OF THE FIT AND PCS COST OBJECTIVES IS SET TO 
0.99, MEANING THAT THE FIT OBJECTIVE IS MORE HEAVILY WEIGHTED THAN 
MeaeerCs COST OBJECTIVE. FINALLY, IT IS DESIRED TO LET THE SOLVER — 
MAXIMIZE TOTAL FILL WITHOUT LIMITING IT TO SOME ASPIRATION LEVEL. 
THUS, THE FILL TARGET IS SET TO 30,000 WHICH IS MUCH HIGHER THAN 
CAN POSSIBLY BE ATTAINED SINCE THERE ARE ALWAYS LESS THAN 25,000 
PEOPLE IN THE INVENTORY. 


Bema A KKK KKK KK KEKE KKK KKK KK KKK KK KR KKK KK 
FILE DEFINITIONS 


PILEDEF FILE IDENTIFICATION PURPOSE 
i ALPHA DATA Al FIT/PCS COST PARAMETER FILE 
Z UPPR-BND DATA Al TOTAL FILL PARAMETER FILE 
3 BESTNUM DATA Al RECORDS MAX FIX ACHIEVED 
¢ ADJST TCF-DATA Al | TCE ADJUSTMENT PARAMETER FILE 


rae eRe RKO KR RR RR KK KK RRR RRR KR RRR KR KR KR KR KK 


DEFINITION OF TERMS 


ALPHA USED TQ ADJUST RELATIVE WEIGHT BETWEEN THE FIT AND 
PES COST OBJECTIVES 
BOUND UPPER BOUND ON FLOW FROM THE POOL TO THE SINK NODES 


IN THE CAPACITATED TRANSSHIPMENT PROBLEM 


aReER THE BEST (LARGEST NUMBER) FILL OF ALL PREVIOUS SOLUTIONS 


USED TO INDICATE HOW TIMES THE USER HAS GONE 
THROUGH THE SOLUTION LOOP. 
TCFADJ TCF ADJUSTMENT CONSTANT 


RAKKKKEREKREKRKERKEERRKKKKEKKRKEERREEKKRERRERKERERERERRRERERERERERREEERKKERE 


INTEGER MARKR, BOUND, IMARKR 

REAL ALPHA 
INITIALIZE THE ITERATION MARKER AND THE ALPHA VALUE USED TO WEIGHT 
THE FIT AND PCS COST OBJECTIVE FUNCTIONS. 
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aX 
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* 
x 
x 
x 
x 
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MARKR = 0 
IMARKR = 0 
ALPHA = .99 
WRITE(91,101) IMARKR,ALPHA 
101 FORMAT(I1,1X,F4.2 
* INITIALIZE THE UPPER BOUND ON THE FILL ARC IN THE NETWORK 
BOUND = 30000 
WRITE(92,102) BOUND 
102. FORMAT(IS) 
x INITIALIZE NUMBER USED TO COMPARE THE FILL IN SUCCESSIVE SOLUTIONS 
LSTBST = 3798 
WRITE(93,103) LSTBST 
103. FORMAT(I5) 
* INITIALIZE TOUR CONTROL FACTOR ADJUSTMENT TO ZERO 
TCFADJ = 0 
WRITE (94, ,104) TCFADJ 
104  FORMAT(I2) 
STOP 


END 
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APPENDIX C 
FREE-FIX SAS 


1. PROGRAM TO EXTRACT AND BEGIN PROCESSING OF INVENTORY 


emg AAR RARER ARRRRERRARRARRE RA KRAERKKKAKKKKKKKRKAKRERRKREKRKRRRARERRERERERRRERE 


* 


* * * 


. Read 


Nr 


. ASSL 
the 


AO HH HR 


x * 


* 


This program reads in the entire inventory (supply) of oes 
and performs most of the initial processing on the data. It 
functions include the following tasks: 


an 


. Recode certain varia 


ne 


3 

4. Read in Tour pent ral Factor (TCF) adjustment from TCF-ADJ 
DATA file and calculate new TCfFs. 

5. Add cost center codes to each individual to indicate his 
present location. 

6. Generate file of non-movers. (USMC NMOVSUP) 

7. Generate file of movers. (USMC NONMSUP 

8. Remove retirees and those reservists who will be getting out. 

9. Sort and output the mover and non-mover files. 


Kae KRe Re KR KR RR KR RK KR KR KR KR KR KR KR KR RR RRR RRR KR KR KR KK KK KA 


x PROGRAM NAME: FREE-FIX SAS an OU 
ke * * ®&* & &* & ke &k & *& *& & 


a 


hese ~ “OVERVIEW eaAND PURPOSE * * * 


the an eR EO from USMC personnel files 

Hessamcols, 1, om 2 integer values. 
officer type to each officer using the Bl cards from 
tionar 


* * * FILE DEFINITIONS * * * 


* * * * * * * * * * * * x * 


Oe OOO tb OR A 


CMS FILEDEF DATAINI DISK WORKING Soa Bm (RECEM F LRECE eso) BLOCK 360; 
CMS FILEDEF DATAIN2 DISK TEMP INVENTRY A (RECFM F LRECL 80 BLOCK 80; 

CMS FILEDEF DATAIN3 DISK WKB1 CRD A (RECFM F LRECL 80 BLOCK 80; 

Oo FILEDEF DATAIN4 DISK CCC=-MCC CONVERT Al 

BieoerlLEDEF DATAINS DISK TCF-ADJ DATA Al; | 

CMS FILEDEF DATAOUT1 DISK USMC MOVRSUP A (RECFM F LRECL 80 BLOCK 80 ; 
CMS FILEDEF DATAOUT2 DISK USMC NONMSUP A (RECFM F LRECL 80 BLOCK 80; 
CMS FILEDEF DATAOUT3 DISK RESV-RET FILE A (RECFM F LRECL 80 BLOCK 30; 
CMS FILEDEF DATAOUT4 DISK ERROR FILE] A (RECFM F LRECL 80 BLOCK 80; 

CMS FILEDEF DATAOUTS DISK NON-MOVR SRTXOTYP ae FP LRECE co BEOCK SO; 


peoLLEDEF DATAOUTS DISK MOVERS SRTXOTYP A 


ReGrit) LXECL 60 BEOCK S0- 


eM 

*CMS FILEDEF DATAOUT7 DISK INV-SIZE DATA (RECFM F LRECL 80 BLOCK 80; 
XCMS FILEDEF DATAOUT8 DISK ALPHA DATA A (RECFM F LRECL 80 BLOCK 80; 
@ElIONS LINESIZE = 80; 

OPTIONS MPRINT; 


VARIABLES 


DEFINITION OF 
ADJTCF 
AMCC 
CCNAME 
COsSTCiIR 
BETS 
DCTBIND 


EAS 
EASIND 


EDA1 
EDALIND 
EDA2 
EDAZIND 


EXP 
MCC 


ADJUSTMENT TO TOUR CONTROL FACTOR 

ADVANCED MCC. PLANNED MCC AFTER NEXT ONE (ie TWO AHEAD) 
NAME OF COST CENTER 

Cost CaN lTES. CODE 

DATE THE CURRENT TOUR BEGAN 

INDICATOR VARIABLE FOR DCTB 

END OF ACTIVE SERVICE. CONTRACT END DATE FOR RESERVISTS 
INDICATOR VARIABLE FOR EAS 

EXPECTED DATE OF ARRIVAL AT FMCC 

INDICATOR VARIABLE FOR EDAIL 

EXPECTED DATE OF ARRIVAL AT AMCC 

INDICATOR VARIABLE FOR EDAZ2 

EXPERIENCE BINARY INDICATOR VARIABLE 

FUTURE MCC. THE NEXT MCC FOR WHICH AN INDIV IS SLATED 


65 


GRADE OR RANK OF INDIVIDUAL 


GRD - GRADE OR RANK OF INDIVIDUAL 

IDNUM - NUMBER USED TO IDENTIFY INDIVIDUALS IN THE SGLuriere 

ey - INTENDED TRANSFER DATE: USUALLY ID = BCiBe te len 

MOS ~S oP RMA os 

MOSNUM - MOS NUMBER: USED TO INDEX DIFFERENT MOS'S IN ARRAY WHICH 
USED IN THE MATCHING SUBROUTINE. (MOSGRD ARRAY Al) 

MOSTYP - CHARACTER VARIABLE WHICH INDICATES THE FAMILY TO WHICH 
THE MOS BELONGS. (EG. NAFW, NARW, GCSS, GNDC, ETC.) 

MOS2 = SECONDARY MOS 

MOS3 - TERTIARY MOS 

eeoe - aoe MCC (PRESENT LOCATION OF INDIVIDUAL) 

oc ro 

ek - TOUR CONTROL FACTOR. NO. OF MONTHS OF A "STANDARD™ TOURS 

TDETS - TEMPORARY VARIABLE TOs UGReer eu. 

TEAS - TEMPORARY VARIABLE TO STORE EAS 

TEDAL - TEMPORARY VARIABLE TO STORE EDAL 

HEDAZ - TEMPORARY VARIABLE TO STORE EDAZ 

ELD - TEMPORARY VARIABLE 10 (sfOR ee etD 

WINDOW - TIME PERIOD, MEASURED FROM TODAY?) OVER vole. 


FIXED OR FREE STATUS IS DETERMINED 


THE FIRST DATA SET IS A LIST OF ALL THE VARIABLES SORGED S72 oon 
LATER, WHEN THIS SORTED LIST IS READ INTO THE MOVSUP AND NMOVSUP DATA 
SETS (TO BE OUTPUT AS CMS DATA FILES), EACH UNIQUE MOS IS ASSIGNED AN 
MOS NUMBER (MOSNUM) WHICH WILL LATER BE USED IN THE MAIN SORT-AND-MATCH 
FORTRAN SUBROUTINE AS AN INDEX TO A MOS-GRADE ARRAY. THE MOS-GRADE ARRAY 
WILL BE USED TO SPEED UP ACCESS TIME BY FINDING THE ENTRY rOlniea ae 
THE INVENTORY FILE (EITHER MOVSUP OR NMOVSUP) WHEN FINDING INDIVIDUALS 
WHO MATCH ZACH El CARD. 
x/. 

DATA _NULL_; 

INFILE DATAINI; 
INPUT GRADE $1-2 MOS $4-7 MOS2 $9-12 MOS3 $14-17 LDO $19 TEAS $23-26 
PMCC $28-30 TDCTB $32-35 TCF 37-38 TITD $40-43 FMCC $45-47 TEDAI 


$49-52 AMCC $54-56 TEDAZ $59-62 EXP $64 SEX $€6 EASIND $24 DCTBIND S33 
ITDIND $41 EDALIND $50 EDAZIND $60 CFT 21; 


IDNUM + 1; 
MNTHDAY = 'O1' : 
IF TEAS NE ' ' THEN EAS = TEAS || '28'; 
IF TITE NES QO" AND TITD NE OGG: Tae ae = rd || MNTHDAY; 
iF TDCTB NE ' QO' THEN DCTB = TDCTB | |_MN 
IF TEDA1 NE '! QO' AND TEDAI NE ee THEN EAL = TEDA1L || MNTHDAY; 
IF ZEDAZ NE. * O' THEN EDA2 = TEDAZ MNTHDAY ; 
IF EASIND Be ' ' THEN EAS = ' '-; 
IF DEOTEIND £0 “toe perse— 
LF £IDIND £0 ORs top aLo 19000! THEN ITD = ' '; 
IF EDALIND EQ ' ' OR TEDAIL EQ ee THEN EDAL = ' '; 
EDAZIND EQ ' ' THEN EDAZ = ' ! 


LO IS ALREADY CODED. 1 = LDO. 2 = UNRESTRICTED; 
FILE DATAINZ; 
PUT GRADE $1-2 MOS $4-7 MOS2 $9-12 MOS3 $14-17 LDO $19 PMCC $21-23 
SEA 925 EXP S27 CET 29 EAS S3i-s6 7 bCree sone 
TCF 45-46 ITD $48-53 FMCC $55-57 EDAl $60-65 
AMCC $66-68 EDA2 $69-74 IDNUM 75-79; 


DATA INVENTRY ; 
INFILE DATAINZ; 
INPUT GRADE $1-2 MOS $4-7 MOS2 $9-12 MOS3 $14-17 LDO ae ae S2l=Ze 
SEX $25 EXP $27 CFT 29 @31 HAS YYMMDDG. G36 Delbaere 
TCF 45-46 @48 ITD YYMMDD6. FMCC $55-57 @60 EDAI YOHMDDS. 
AMCC $66-68 @69 EDA2 YYMMDD6. IDNUM 75-79; 
kx THE FOLLOWING IF STATEMENTS CONVERT GRADE TO INTEGER VALUES FOR ee 
xkk USE IN THE ENTRY POINT ARRAY AS AN INDEX. ARR | 


IF GRADE EO '03' THEN GRD as. 
ELSE [IF GRADE EO '0z7 Ge aNecee 
ELSE IF GRADE EQ °04 STHEN GRD 


i it 
NO 


ELSE IF GRADE EQ 'WO' THEN GRD 
ELSE IF GRADE EQ '05' THEN GRD 
IF SEX = 'M! THEN SEX = '1'; 
ELSE IF SEX = 'F! THEN SEX ='2 
ELSE IF SEX = '*! THEN SEX = | 
PROC SORT DATA = INVENTRY; 
BY MOS GRD MOS2 MOS3; 


* 


AT THIS POINT A SERIES OF "IF THEN, ELSE IF" STATEMENTS ARE INSERTED 
“ie TO EACH PMOS AN APPROPRIATE MOSTYP SUCH AS NAFW, NARW,GCSS,etc. 


DATA BCARDS ; 
INFILE DATAIN3; 
me Ol MOSeS1=-4 MOSTYP $8-11; 
IF MOSTYP = 'AD ' OR MOSTYP = 'BL ' THEN DELETE ; 


PROC SORT DATA = BCARDS; 
Beno ; 
DATA FILEX; 
MERGE INVENTRY BCARDS ; 
pees > 


IF MOSTYP = 'NAFW! THEN OFFTYP = '10000000! ; 
Bese IF MOSTYP THEN OFFTYP = '01000000'; 


: 
5 


ELSE IF MOSTYP = 'NANF' THEN OFFTYP = '00100000'; 
Boon LE MOSTYP = 'GDCB' THEN OFFTYP = '00010000' ; 
mebos IF MOSTYP = 'GDCS' THEN OFFTYP = '00001000'; 

Bion LF MOSTYP = ‘'GCSS' THEN OFFTYP = '00000100'; 
meses le MOSTYP = 'AGCS' THEN OFFTYP = '00000010'; 
esse tr MOSTYP = 'ACSS' THEN OFFTYP = 'OQ0000001'; 
ELSE IF MOSTYP = 'NOSG' THEN OFFTYP = ‘00000000! ; 

fae eLok DO; 

* FILE DATAOUT4; 

; ae MOS 1-4 OFFTYP $5-12 MOSTYP $14-17; 


RARKK read in TCF adjustment ee from TCF-ADJ DATA **xxx%, 
* DEFINE SAS MACRO; 

%MACRO MAC1 

; aNLsE If DCTB + ((TCF + GADITCF)*365.25/12) >= WINDOW THEN DO; 


DATA DCHTCF; 
INFILE DATAINS; 
INPUT CHGTCF 1-5; 
* RETAIN CHGTCF; 
CALL SYMPUT('"ADJTCF', CHGTCF) ; 


; 


* CLEAR OUT SOME UNNEEDED DATA SETS; 
PROC DATASETS; 
DELETE INVENTRY BCARDS; 


*x ewe tHE COST CODE CENTERS ARE ADDED TO THE MCC'S WHICH ; 
* WILL APPEAR IN THE OUTPUT FILE. THESE COST CODE CENTERS WILL BE USED; 
* IN THE MATCHING ROUTINE TO REFERENCE AN ARRAY CONTAINING THE COSTS 
* ASSOCIATED WITH MOVING AN OFFICER OF SOME PARTICULAR RANK FROM HIS 
* PRESENT MCC (WHICH APPEAR ON THE "USMC MOVRSUP" OR "NMOVSUP" FILE) 
GeteoeHiis PROPOSED FUTURE MCC ("FMCC" - WHICH IS PULLED FROM THE FILES 
. MOVR-DEM INPUT AND NMOV-DEM INPUT FROM E1ASREI1A/B SAS. 
* 
* 
* 
D 


~aea “se “Ss “SG “EO 


Beenvon SOME OF THE MCC'S ON THE PRESENT COST CODE CENTER LIST ; 
ARE NOT YET PROPERLY MATCHED WITH A COST CODE CENTER, THESE WILL BE ; 
ARBITRARILY ASSIGNED TO COST CODE CENTER NUMBER 29 - KANSAS CITY. ; 
Boo CCC's: 
ATA DD1; 
INFILE DATAIN4; 
INPUT @7 MCC SCHAR3. @l1l COSTCTR SCHARZ2. @14 CCNAME SCHARI1O.; 
meeCOSTCTR = ' OQ! THEN DO; 
COSTCTR = $29! 
CCNAME = WARNING! *! ; 
END; 
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DD1; 
FILEX; 


PROC SORT DATA 
BYGHeG; 
PROC SORT DATA 
By ancc; 

DATA TOTSUP; 
MERGE DD1 FILEX; 
Bue tee, 
IF COSTCTR = ' ' THEN COSTCTR = '**'; 


PROC SORT DATA = TOTSUr. 
BY MOS GRD MOSZeness- 


ain Determine window of the problem. This is set to 1 year, %***%**; 


IF THE INDIVIDUAL'S ROTATION DATE FALLS WITHIN ONE YEAR OF TODA 
DATE (IE. WHENEVER THE JOB IS RUN), THEN HE IS CLASSIFIED AS A MOVER, 
AND HIS RECORD IS PLACED IN THE MOVSUP (MOVER SUPPLY) FILE. iF NOT) 
his RECORD IS PLACED IN THE NMOVSUP (NON-MOVER SUPPLY FILE). FURTHER 
REFINEMENTS OF THIS JOB WILL PERMIT THE USER TO INPUT BOTH Tia er a 
FROM WHICH THE MOVERS ARE DETERMINED, AND THE NUMBER Of DAvoee. 
MONTHS FROM THAT DATE WITHIN WHICH A RECORD WILL BE ASSIGNED TO EACH 
FILE. ALSO, THIS IS WHERE THOSE WHO ARE FIXED AT AN MCG WILDE 
DESIGNATED USING A "LOGICAL IF" STATEMENT ~/-; 


DATA _NULL_; 
Seo td sue 


* IDNUM + 1; 
IF MOS NE LAG(MOS) THEN MOSNUM + 1; 
TDAY = TODAY () ; 
WINDOW = TDAY + 365. oe 


RAKAARKKAAKKARKRKARKARKAR CREATE FILE OF NON-MOVERS RRARKRARARKKRKAAK KARR » 


EE PAMCE NES ' AND EDA2 >= WINDOW THEN DO; 
FILE DATAOUTZ; 
FIX = 1; 
IF GRD = ' '‘' THEN DELETE; 


PUT MOS $1-4 GRD $6=-7 MOS2 $9-12 MOS3 Si4=17 egestas 
EXP $23 SEX $25 LDO $27 FIX 29 FDNUN 31 -3S5eiesi eee 
€65 EDAZ YYMMDD4. OFFTYP $70-77 COSTCTR s735c0- 


END; 
ELSE EF EMCe NE ' AND EDA1 >= WINDOW THEN DO; 
FILE DATAOUTZ; 
FIX = 1; 
IF GRD = ' ' THEN DELETE; 


PUT MOS $1-4 GRD $6-7 MOS2 $9-12 MOS3 $14-17 MCC $19-21 
EXP $23 SEX $25 LDO $27 FIX 29 IDNUM 31-35 MOSNOMSeyae 
G61 EDAL YYMMDD4. OFFIYP S70=-77 COSTGiRes 7 7-cer 


END; 
ELSE IF ITD >= WINDOW THEN DO; 
oe DATAOUTZ; 


1; 
. IF GRD =" | THENBDEEe ts ; 
* NOTE THAT ITD, EDAl, EDA2’ AND MOVR ARE NOT NECESSARY AND WERE ONLY; 
* INCLUDED IN THE OUTPUT TO FACILITATE DE-BUGGING. THEY MAY BE REMOVED; 
* WHEN NO LONGER Petts Bae CLARITY; 
PUT MOS $1-4 GRD $6-7 MOS2 $9-12 MOS3 $14-17 MCC $19-21 
EXP $23 SEX $25 LDO $27 FIX 29 IDNUM 31-33 MOSNUies7 oe. 
@57 ITD YYMMDD4. OFFTIYP $70-77 COSH@ER S7o-ce- 


END; 
SMAC1; 
ce DATAOUTZ ; 
IF GRD = ! ' THEN DELETE: 
PUT MOS $1-4 GRD $6-7 MOS2 $9-12 MOS3 $14-17 MCC $19-21 
EXP $23 SEX $25 LDO $27 FIX 29 IDNUM 31-35 MOSNUM 37-39 
an @SO DCTB YYMMDD4.TCF 55-56 OFFTYP $70-77 COSTCTR $79-80; 


xwRKR CREATE FILE OF POTENTIAL MOVERS AND REMOVE RETIREES/EAS'S *****; 


Ieee Nee fee le be 
TE ANeC Ney | THESES; 
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IF EDA2 <= WINDOW THEN DO; 
RESERVE = SUBSTR(AMCC,1 2)3 
IF AMCC = 'W95' OR RESERVE Bete!) THEN DO; 
FILE DATAOUT3; 
IF GRD = ' ' THEN BeHELES 
PUT MOS $1-4 GRD $6-7 MOS2 $9-12 MOS3 $14-17 MCC $19-21 
ExPececmoeeczoeLDO S27 FIX 29 IDNUMN 31-35 foagme a7 =39 
@41 DCTB YYMMDD4. TCF 46-48 @50 ITD YYMMDD4 
@55 EDAlL YYMMDD4. @60 EDAZ2 YYMMDD4. AMCC $65-67 OFFTYP $70-77 
COSUGER 579-60; 
DELETE; 


PLLe ‘DATAOUTI ; 
FIX = 


Oe 
Be eCRD =)" 0) THEN DELETE; 
* NOTE THAT ITD, EDA1, EDA2, AND MOVR ARE NOT NECESSARY AND WERE ONLY; 
* INCLUDED IN THE OUTPUT TO FACILITATE DE-BUGGING. THEY MAY BE REMOVED; 
* WHEN NO LONGER NEEDED FOR CLARITY; 
PUG eNO sme oGnD ce Ose s9=L2 MOsS 514-17 MCC S19-21 
eee oe moe oom oag sri x 29) IDNUM 31-35 MOSNUM 37-39 
@41 DCTB YYMMDD4. TCF 46-48 @50 ITD YYMMDD4 
@55 EDAl YYMMDD4. @60 EDA2 YYMMDD4. AMCC $65- =67 OFFIYP 570-77 
- COSHEGR 279-00, 


/* 


IN THIS NEXT SECTION, THE FILES CREATED ABOVE ARE SORTED BY MOS GRADE 
eee OR By OREFIYP GxDPAND MOS‘S FOR USE AS INPUT FILES TO FORTRAN 
PROGRAMS WHICH WILL CREATE ADJACENCY LISTS WHICH WILL BE USED 
MemorLeDeUr tne SORTING AND MATCHING PROCESS. THE SET MOVSUP 

IS ALREADY SORTED BY MOS AND GRADE AND IS USED IN THE 

PRIMARY SORT AND MATCH ROUTINE. 


DATA FILEW; 
INFILE DATAOUTI; 
INPUT MOS $1-4 GRD $6-7 MOS2°$9-12 MOS3 $14-17 MCC $19-21 
Are SE eee oebomsz) FIX 29 EDNUM 31-35 MOSNUM 37-39 
OPEivr 5/0-77 GCOSTCTR $79-80; 
PROC SORT DATA = FILEW; 
BY OFFTYP GRD MOS MOS2 MOS3; 


DATA _NULL_; 
Set FILEW; 
memenD = | ' OR MCC = " * THEN DELETE; 
Pee DATAOUTE ; 
Beeoreize ol-S GRD! SlO-11 MOS $13<16 MOS2 $18-21 MOS3 $23-26 
LDO $28 SEX $30 EXP $32 MCC $34-36 COSTCTR $38-39; 


DATA FILEY; 
INFILE DATAOUT2; 
Pine eoses leach So=7.MOSZ S9=12 MOS3 S14=-17 MCC $19=-21 
Bee ome oso UDOT oe ah LA 29 IDNUM 31=35 MOSNUM 37-39 
Sueur 57 O-7  SCOSTCIR 979-60; 
BeeoG SORT DATA = FILEY; 
BY OFFTYP GRD MOS MOS2 MOS3; 


DATA _NULL; 
een EILEY; 
Bech = * © OR MCC = ' ' THEN DELETE; 
FILE DATAOUTS; 
PUT OFFTYP $1-8 GRD $10-11 MOS $13-16 MOS2 $18-21 MOS3 S25=20 
BWOesco SEX 930 EXP $32 MCC $34-36 COSTCTIR $38-39; 
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APPENDIX D 
ADJ-LIST FORTRAN 


1. PROGRAM TO GENERATE POINTER ARRAY FOR MOVERS AND NON- 
MOVERS 


* 
= PROGRAM NAME: ADJ-LIST FORTRAN ~ ke s * 


* 
RAR KR RRR RRR KR KR RR KR KR KR RRR RRR RR RR RK RR KR KR KR RK 


x * * OVERVIEW AND PURPOSE * * * 


THIS PROGRAM GENERATES A POINTER ARRAY WHICH WILL BE INPUT TO 
ENTRY-PT FORTRAN FOR EXPANSION INTO AN ARRAY THAT WILL BE USED TO 
HEL? IN THE MATCHING PROCESS. WHEN THE PEOPLE Ake Melton oawe 
BILLETS, IT WILL BE NECESSARY TO SEARCH THROUGH THE TNVeNt On eee 
FIND ALL THOSE IN THE INVENTORY WHO FILL THE QUALIFICATIONS EIS Sep 
ON THE El CARD THAT IS BEING EXAMINED. 

THIS PROGRAM GENERATES AN ENTRY POINT ARRAY FOR BOTH THE Fiza 
AND THE FREE INVENTORIES WHICH WILL ENABLE THE MATCHING ROUTINES&@ 
SEARCH ONLY AMONG THOSE WITH THE PROPER MOS AND GRADE WHEN Li eigee 
MATCH PEOPLE TO BILLETS. THE ARRAYS POINT 10 THE FIRST Shiba oe 
OCCURRENCE OF A PARTICULAR MOS/GRADE COMBINATION IN THE FIXED AND» 
SREGeONVENTOREs so. 


RAR RR RRR RRR RRR RRR RRR RR RR RK KK KR RK KR Ree ee x7 


aA 


xxx FILE DEFINITIONS  *** 


FILEDEF FILE DENT IFICATION PURPOSE 
8 USMESMeURSUE CONTAINS ALL MOVERS IN USMC 
9 ADJ-MOVR ARRAY HOLDS MOVER POINTER ARRAY 
10 USMC NONMSUP CONTAINS ALL USMC NON_MOVERS 
gBN ADJ-NMOV ARRAY HOLDS NON_MOVER POINTER ARRAY 


KARR KR RR RR KR KR RRR RR KR KR KR KR KR KR KR KR KR KR KR K KR KKK ee 


ARK DEPINI TION Ob TERNS KAR 
BEGINKX STARTING POINT OF THE CURRENT MOS/GRADE COMBINATION 


ENDAT ENDING POINT ON LIST OF CURRENT MOS/GRADE COMBINATION 
GRD GRADE OR RANK 
Mes THE MOS CURRENTLY BEING LOOKED AT 


MOSNUM THE NUMBER OF THE CURRENT MOS IN THESES 

OLDGRD THE PREVIOUS GRADE THAT WAS LOOKED AT IN THE LIST 
OLDMOS THE PREVIOUS MOS LOOKED AT 

POs uy COUNTER TO MARK POSITION IN THE OVERALL LIST 

SEARCH ARRAY VARIABLE NAME CONTAINING START & ENDING POINTS 


RARAARAARRAKK KKK RAKRR KK KK KRKKKK KAKA AKKK AAR RK KKK KKK KKK RAK KK AK AK KK KKK AA 


DEBUG SUBCHK 

ENDDEBUG 
INTEGER POSIT, BEGINX, ENDAT, SEARKGH, GRD, OLDGRD Mesut 
CHARACTER*4 MOS, OLDHOS*4 
eee SEARCH(180,6 Pr 


FOsSit 
RRKKKKKKARE INITIALIZE ARRAY RAERRREAKK 


DOOM = ee 
DO LOr d= 6 
DO 10 Ki= 122 
SEARCH(I,J,K) = 0 


4A HAA A HH AMAR ARERR AAR ARAB RARER hE AAD 
oo OR OO OO aR Raa RE 
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10 CONTINUE 


15 READ (ll, 104, END = 998) MOS, GRD 
101  FORMAT(A4, 2X, 11) 
POSIT = Sosit + 
IF (POSIT EQ. )) THEN 
OLDGRD = 
Hos 


OLDMOS 
ae 


BEGIN 1 
EESE ILE ‘CiMos ER OLDMOS) .AND. (GRD .NE. OLDGRD)) THEN 

ENDAT = POSIT 1 

ae ech /OLDGRD, Z = BEGINX 

SEARCH(MOSNUM,OLDGRD,2) = ENDAT 

BEGINX = POSIT 

Beeeet ae ,102) MOSNUM, OLDMOS, OLDGRD, SEARCH(MOSNUM,OLDGRD,1), 
C SEARCH (MOSNUM,OLDGRD, 2) 

OLDGRD = GRD 

Boose LF ( (MOS -NE. OLDMOS ) -AND. (GRD .EQ. OLDGRD)) THEN 
ENDAT = POSIT i 
BEGINX 


SEARCH (MOSNUN, /OLDGRD, i 
SEARCH (MOSNUM,OLDGRD , 2 ENDAT 
Bee oe ,102) MOSNUM, OLDMOS, OLDGRD, SEARCH(MOSNUM,OLDGRD,1), 
C SEARCH (MOSNUM,OLDGRD, 2 

MOSNUM= MOSNUM + 1 

BEGINX = POSIT 

OLDMOS = MOS 

ELSE IF ((MOS .NE. OLDMOS) .AND. (GRD .NE. OLDGRD)) THEN 

ENDAT = POSIT - 1 

Soe oc ae ,OLDGRD,1) = BEGINX 

SEARCH (MOSNUM ,OLDGRD, 2 ENDAT 

Beat Ge ,102) MOSNUM, OLDMOS, OLDGRD, SEARCH(MOSNUM,OLDGRD,1), 
c SEARCH (MOSNUM ,OLDGRD, 2) 

MOSNUM = MOSNUM + 1 

BEGIN POStT | 

OLDMOS MOS 


OLDGRD GRD 
m2 FORMAT(1I3,1X,A4,1X,11,1X,16,16) 
ENDIF 
=o TO 15 


998 ENDAT = POSIT 
Se TOC ‘OLDGRD, 1) = BEGINX 


SEARCH(MOSNUM,OLDGRD,2) = ENDAT 
Peet ae ,102) MOSNUM, OLDMOS, OLDGRD, SEARCH (MOSNUM,OLDGRD,1), 
c SEARCH (MOSNUM,OLDGRD, 2) 
* NOW WE HAVE FINISHED GENERATING THE ENTRY POINT ARRAY FOR USMC MOVSUP 


* WE WILL NOW RE-INITIALIZE THE SAME VARIABLES AND PERFORM A SIMILAR 
* FUNCTION FOR THE FILE USMC NMOVSUP (THE NON-MOVERS) 


RREKRRKRRKRRRKRRKER RE-INITIALIZE POSITION COUNTER KREKKRKKRKRKREKKKE 
ee Oot a rakkakicn RE-INITIALIZE ARRAY KREKEREKKAEKRKKKEKRKRERRERRK 
BO. 20 I = 1,180 
DO 20 J = 1,6 
DO 20 K = 


Me 
SEARCH(I,J,K) = 
20 CONTINUE 


25 READ (13, rok; ee Boa) eos ,. GRD 


POSIT = POs! 

i POsi. Boe 1) THEN 
OLDGRD = GRD 
OLDMOS = MOS 
See tite = 1 


BEGIN 1 

ELSE IF (Mos .EQ. OLDMOS) .AND. (GRD .NE. OLDGRD)) THEN 
ENDAT = POSIT - 1 
See one sey BEGINX 
SEARCH (MOSNUM ,OLDGRD , 2 ENDAT 
BEGINX = POSIT 
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BARCH (io: ,102) MOSNUM, OLDMOS, OLDGRD, SEARCH(MOSNUM,OLDGRD,1), 
c SEARCH (MOSNUM, OLDGRD i 
OLDGRD = GRD 
ELSE IF ((MOS .NE. OLDMOS) .AND. (GRD .EQ. OLDGRD)) THEN 
ENDAT = POSIT - 1 
SS ea ,OLDGRD,1) = BEGINX 
SEARCH(MOSNUM,OLDGRD,2) = ENDAT 
Svea aoe ,102) MOSNUM, OLDMOS, OLDGRD, SEARCH(MOSNUM,OLDGRD,1), 
c SEARCH(MOSNUM, ee 2) 
MOSNUM= MOSNUM + 1 
BEGINKX = POSIT 
OLDMOS = MOS 
Beores ((MOS ~NE. OLDMOS) .AND. (GRD .NE. OLDGRD)) THEN 
ENDAT = POSIT 1 
Sec oeiek ‘OLDGRD, 1 BEGINX 


SEARCH (MOSNUM,OLDGRD,2) = ENDAT 
Bape aoe ,102) MOSNUM, OLDMOS, OLDGRD, SEARCH(MOSNUM,OLDGRD,1), 
C SEARCH (MOSNUM, Cae 2) 

MOSNUM = MOSNUM + 1 
BEGINX = POSIT 
OLDMOS = MOS 
OLDGRD = GRD 

ENDIE 

GO,1CrzZ> 

oo7 ENDAT = POSIT 


Se CCH ,OLDGRD,1) = BEGINX 
SEARCH(MOSNUM,OLDGRD,2) = ENDAT 
Baga ate ,102) MOSNUM, OLDMOS, OLDGRD, SEARCH(MOSNUM,OLDGRD,1), 
C SEARCH (MOSNUM,OLDGRD, 2 

CLOSE( 12 

CLOSE( 12 

GCEOSE< 1s 

CLOSE (14 

SlGEr 


END 


te 


APPENDIX E 
ENTRY-PT FORTRAN 


1 PROGRAM TO COMPLETE THE GENERATION OF THE POINTER 
ARRAYS 


KAKARKAAKAK AAA AKK RAKAKKK KKK RAAKKRARAK RAR AR RARAKKRARAKRRAR RR RRR RRR RRR RRA 
< 

x) ee PROGRAM NAME: ENTRY-PT FORTRAN coon |X : 

KARR RR KK RK KKK RR KR RRR RK RR KR KR KK KR KR KK KR KK 


<a OVERVIEW AND PURPOSE ei to3 


THIS PROGRAM EXPANDS THE BASIC ENTRY POINT ARRAY GENERATED IN 
ADJ-LIST FORTRAN INTO A FORMAT THAT CAN BE USED BY THE MATCHING 
PROGRAM. THE ADJACENCY LIST THAT IS READ IN FROM THE ADJ-LIST OMITS 
ALL MOS/GRADE COMBINATIONS THAT DON'T APPEAR IN THE INVENTORY, BUT 
IN ORDER TO BE A GENERAL PURPOSE MATCHING PROGRAM THE MATCHING 
ROUTINE MUST LOOK FOR ALL MOS/GRADE COMBINATIONS. IN ORDER TO ALLOW * 
IT TO USE THE LIST, THE POINTER ARRAY MUST INDICATE ALL COMBINATIONS, * 
EVEN THOSE WHICH DO NOT APPEAR IN THE INVENTORY. THIS PROGRAM TAKES * 


4A HA 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* THE COMPACT ENTRY POINT ARRAY AND EXPANDS IT INTO A FORMAT THAT ms 

* INCLUDES ALL MOS/GRADE COMBINATIONS. i 

nc xk eK KKK KR KR KKK KR KR RK KR OR OR ROKR KERR RRR KR KR KR KR RK 

* * 

4 ee ELE DER INI TIONS a *=~ : 

x FILEDEF FILE IDENTIFICATION PURPOSE | z 

* 9 ADJ-MOVR ARRAY HOLDS MOVER POINTER ARRAY - 

e iba) ADJ-NMOV ARRAY HOLDS NON_MOVER POINTER ARRAY * 

* 2 MOVR-EP ARRAY EXPANDED MOVER POINTER ARRAY * 

Z te NMOVREP ARRAY EXPANDED NON-MOVER ARRAY 

Be KOKORO K KOR KR KR KERR KKK RK K KR KR KR KR KR KR KR KEK KR KKK RK RK 

* * 

F xkK =868DEFINITION OF TERMS ***% * 
x 

x  BEGINX STARTING. POINT OF THE CURRENT MOS/GRADE COMBINATION * 

x ENDAT ENDING POINT ON LIST OF CURRENT MOS/GRADE COMBINATION x 

= GRD GRADE OR RANK - 

a MOS THE MOS CURRENTLY BEING LOOKED AT 

*x  MOSNUM THE NUMBER OF THE CURRENT MOS IN THE LIST - 

* OLDGRD THE PREVIOUS GRADE THAT WAS LOOKED AT IN THE LIST * 

a) OLDMOS THE PREVIOUS MOS LOOKED AT i 

*  Posit COUNTER TO MARK POSITION IN THE OVERALL LIST 

KRAKAAKKAAKKEKKKKKKKKAKRKKKRKRKKKAERARKKKRRKAEKRKKRKKRKARKAKRKRKREKREKRERKARAERKERREKRRRERARERE 


INTEGER BEGINX, ENDAT, GRD,MOSNUM,OLDNUM, en M,OLDM 
CHARACTER*4 MOS ,OLDMOS 
ZERO = 0 
M=1 
1 READ (12,103, END = 998) MOSNUM, MOS, GRD, STARTX, ENDAT 
103 FORMAT (I3, LA; WAG, Pe Lie, bor 26) 


IF ((MOSNUM EQ. 1) .AND. (M .EQ. 1)) THEN 


OLDMOS = 
OLDNUM = MOSNUM 
ENDIF 
2 HP ((M .NE. GRD) .AND. (MOS ‘of, OLDMOS)) THEN 
M,ZERO , ZERO 


WRITE (13, 103) MOSNUt MO 
OLDM 


73 


Mo = Med 
ce 2 a nooo 6) M= 


ELSE ee $770 GRD) .AND. (MOS .EQ. OLDMOS)) THEN 
Wart O3)) MOSNUM, MOS , GRD, STARTX ,ENDAT 


Mele 
TF (i “EQ. 6)M=l 
GO T 


sLSE TE (OL, ceo. 1) i -AND. (MOS .NE. OLDMOS)) THEN 
OLDMOS = MOS 


OLDN OSNUM 

WRITE (13,103) MOSNUM, MOS, GRD,STARTX,ENDAT 
OLDM = M 

M = Mtl 


GOIOe 
ELSE IF (MNES Derr 
Le (OLDM 207 


THEN 
WRITE (13, 103) MOSNUM, MOS, GRD,STARTX,ENDAT 
OLDM = M 


M = M+1 
IF (x 559. 6).M=1 
GO 


ELSE IF OLDM NE. 5 


) THEN 
WRITE (13, 103) OLDNUM , OLDMOS ,M, ZzERO , ZERO 
OLDM = M 


M = M+l 
LF (M 320, 6) = 1 
GO’ 16.2 

ae IF 


END 
ELSE IF far .NE. GRD) .AND. (MOS .NE. OLDMOS)) THEN 
IF (M .EQ.1) THEN 


WRITE(13, 02) MOSNUM, MOS ,M, ZERO, ZERO 
OLDMOS MOS 


y 
ELSs ji wNE od) been 
ree 103) OLDNUM , OLDMOS ,M, ZERO, ZERO 


M = M+ 
IF (M "EQ. 6)M=1 
GOTO 2 


338 DO 20 gd se. Mas 
WRITE(13 

20 CONTINUE 

x ONCE AGAIN WE WILL TEMPT FATE AND ATTEMPT TO FILL QUT THE ENTERS 

* ARRAY FOR ADJ-NMOV ARRAY Al IMMEDIATELY AFTER DOING IT FOR ADJ-MOVR 

* ARRAY Al AND USING THE SAME VARIABLES. 


KKEEKKKAKKKKKKKKKEKE RE-INITIALIZE VARIABLES KEEAKKAKAKKKKKKKKKKEKKKK 
ZERO = 0 


M=l 
RARARAKRAAAKAK 


,103) MOSNUM,MOS,J,ZERO,ZERO 


BEGIN TO READ FROM ADJ-NMOV ARRAY RARRAARAKKKRKA RK 
3 READ (14,103, END = 999) MOSNUM, MOS, GRD, STARTX, ENDAT 


IF ((MOSNUM EQ. 1) .AND. (M .EQ. 1)) THEN 
OLDMOS = 
= MOSNUM 


4 IF ((M .NE. GRD) .AND. (MOS .EQ. OLDMOS)) THEN 
ee 103) MOSNUM, MOS My ZERO Zene 


Pela 
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GO TO 4 


EESE SIEM ER GRD) .AND. (MOS .EQ. OLDMOS)) THEN 
Oa ee 03) MOSNUM, HOS; GRD, START, ENDAT 


Moe a 
IF (1 <0. 6) M=1 
Sona 


ELSE IF ( jas se -AND. (MOS .NE. OLDMOS)) THEN 
Ir (M ° a THEN 
OLDMGS = ae 


OLDN NUM 
Ree 103) MOSNUM, MOS, GRD,STARTX,ENDAT 
OLDM = 


M = ow 


GO 
ELSE IF ce NE 1), THEN 
IF (OL 


EQ. 5 THEN 
Waite (15 163) MOSNUM, MOS, GRD,STARTX,ENDAT 
en 


M = 
a5 8 a “EQ. 6) M=1 


ELSE “(oLDM SMES 


) THEN 
WRITE(1S, 103) OLDNUM ,OLDMOS ,M, ZERO, ZERO 
OO is M 


M = Mtl 
IF fe 32: 6) t= 2 
G6 

ENDIF 


ENDIF 
Bese LF ae .NE. GRD) .AND. (MOS .NE. OLDMOS)) THEN 
LEGG sO. ren 


WRITE (15, oe MOSNUM ,MOS ,M, ZERO, ZERO 
0 


OLDMOS 
OLDNUM = MOSNUM 


OLDM = M 
M = Li 
oe 
ELSE S(t iNEee 1) SHEN 
an Qs, 103) OLDNUM , OLDMOS ,M, ZERO, ZERO 


“i= 
IF a "EO. She aed 
GOTO 4 


2999 pe s0 J = M,9 
R (15,103) MOSNUM,MOS ,J,ZERO,ZERO 
30 CONTINUE 


CLOSE(12 
MEODE (1S 
CLOSE(14 
CLOSE(15 
STOP 

END 


no 


APPENDIX F 
ROLINV SAS 


1 PROGRAM TO CONVERT THE NON-MOVER INVENTORY TO ASR 
FORMAT. 


ze 
TK ee PROGRAM NAME: ROLINV SAS 7a Xe ‘i 


KARR RK KR RK KR KR KR KR KERR KK KKK KR KR KK KE KR KR KR KR KR 


x * * OVERVIEW AND PURPOSE xk XK 


THIS PROGRAM TAKES THE NON-MOVER FILE AND ROLLS UP THE TOTALS 
OF NON-MOVERS IN EACH MOS AND GRADE. IT THEN PUTS IT INTO THE SAME 
FORMAT AS THE ASR FILE. THE OUTPUT FROM THIS FICE WEEE Be aUSeeme 
THE PROGRAM INVENTRY1 SAS WHICH SUBTRACTS THE NON-MOVERS FROM THE 
ASR IN AN EFFORT TO REDUCE THE NUMBER OF UNNECESSARY MATCHES MADE 
BY THE MATCHING ROUITINE. 


RRR KK KR RK RR KR RR KR KR KR RK KR KR KK KR KK RK KR KR KK 
RAAKRAAKRARKARKARKRKRAKRR Re DEFINITION KRARKKAKKARKRARRARKRRARRK 


CMS FILEDEF FONE DISK USMC NONMSU 


CMS FILEDEF FTWO DISK ROLNM INV (RECEN F LRECL 60 BEOCKeag 
RRAKAARKKKAKAKAARAARAARARAKRAAARARRAARARAKRARAKKAAKARAARRARRERARAR RARE AR 


Ob Rb ob a kb 
OF OF OR OF OF 


*THIS PROGRAM ROLLS THE FIXED INV INTO A MOS/GD/MCC/CNT FORMAT; 
*SO THAT THE ASR CAN BE REDUCED BY THIS AMOUNT; 
AINPUT INVENTORY; 
DATA DONE _(KEEP = MOS GD MCC MGM CNT); 
IF N_ = 1 THEN CNT = 1; 
INFILE FONE; 
INPUT MOS 1-4 GD 7 MCC §$ 19-21; 
TMP = MOS | Sie 
MGMA = TMP {|{ MCC; 
IF MGMA = LAG (HOMA) THEN CNT +1; 
ELSE DO; 
MGM = LAG(MGMA); 
OUTPUT ; 
CNT = 1; 


END; 
PROG SORT; 
BY MGM 
DATA “NULL as 
SET DONE; 
PILE SE iwo 
Furees es “4 GD 7 MGC 3-11 Chi 14 — Te; 
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1. 


OO ROR OR OR OF OR ROR ob OF OR oR ob ob Ob of Ob ob ob ob ob oF 


APPENDIX G 
XPASR SAS 


PROGRAM TO READ IN THE USMC ASR DATA FILE. 


REKKAKKREKRKEKREKKERKRKEEKRKAERRRREKRREKRREREARRRERERRRRERERRERERRKRRRERKRRRRRRRRRERE 


apne es PROGRAM NAME: XPASK SAS 


xk OVERVIEW AND PURPOSE 


THIS PROGRAM READS THE USMC ASR FILE INTO i Svc lEM.. IN THE 
BeelOTYPE, THE USMC ASR TAPE IS CALLED RAW ASR 


RAR KR KR KR KR RR KR RR KR RRR KR KR KR RR KR KR RR KR KR KR KR KR RR KK KR Re 


RE DEFINITION OF TERMS Bobs 


BMOS BILLET MILITARY OCCUPATIONAL SPECIALTY (BMOS) 

CAPT THE NUMBER OF CAPTAINS AUTHORIZED AT THE INDICATED MCC 
COL THE. NUMBER OF COLONELS AUTHORIZED AT THE INDICATED MCC 
GD GRADE INDICATOR 

eo THE NUMBER OF LIEUTENANTS AUTHORIZED AT THE MCC 

LTCOL THE NUMBER OF LIEUTENANT COLONELS AUTHORIZED AT THE MCC 
MAJ THE NUMBER OF MAJORS AUTHORIZED AT THE MCC 

MCC MONITORED COMMAND CODE. THE LOCATION BEING INDICATED. 
WO THE NUMBER OF WARRANT OFFICERS AUTHORIZED AT THE MCC 


RAR RRR RRR RRR RR: RR: ROR KR KR KR KR KR KR RRR RRR KR KR 


x ke KK RK K FILE DEFINITIONS 


CMS FILEDEF FONE DISK RAW ASR A 
CMS. FILEDEF FTIWO DISK NEW ASR A (RECFM F LRECL 


DATA DONE; 


INFILE FONE; 
BoLe FIWO; 


* 
x kk k& & * 
* 


RAR KR RR RR RRR: RR: RR: RO: RRR RRR: RRR KR RR KR KR RK 


x ke RK 


HO OOO OO A 


mk” K kK %& Kk ® * 


80 BLOCK 80 


RREEKRRRERRRERRKARRRRRRRRRKRRRERERARR RR KR Au RR ARE ARRAERKKRARKARR RRR A 


INPUT BMOS 1-4 MCC $ 6-8 COL 24-28 LTCOL 30-34 MAJ 36-40 


CAPT 42-46 LT 48-52 WO 54-58; 
DROP COL LTCOL MAJ CAPT LT WO; 
mea NESO Teehabe; 


; 


NUM = COL; 


PUT BMOS 1-4 MCC 8-10 GD 14-15 NUM 18- =2; 


END; 

IF LTCOL NE 0 THEN DO; 
GD = 5; 
NUM = LTCO 


L; 
PUT BMOS 1-4 MCC 8-10 GD 14-15 NUM ra=2 le 


END; 
IF MAT NE 0 THEN DO; 
GD = 4; 


NUM = MAJ; 
Puieenes 1-4 MCC 6-10 GD 14-15 NUM 18-21; 


END; 
IF CAPT NE 0 THEN DO; 
GD = 3; 


NuM = ¢ 


carl; 
BUPeBMOS L-4 MEC S-10 GD 14-15 NUM 18-21; 


END; 
IF LT NE O THEN DO; 
ED = 2 


° 
; 
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WOUlL ™ ld 3 
eure BMOS 1-4 MCC 8-10 GD 14-15 NUM 18-21; 


IF WO NE O THEN DO; 
GD = WO: 
NUM = WO; 
ee BMOS 1-4 MCC 8-10 GD 14-15 NUM 18-21; 


f 
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APPENDIX H 
CIASR SAS 


1. PROGRAM TO UPDATE THE ASR 


REEKKKKRKRKAKKKERRAERRRRRRRRRRERRRRRRRERRRRRERKRRRRRRRRRKRKRRRRRKRRRRRRRRRRRERERER 


Ae we) 


zx KR 


VALUE. 


BLELEDEF FIEE £DENTESIGATION 
8 USMG MOVASUP 
2 ADJ-MOVR ARRAY 
10 USMC NONMSUP 
HL ADJ-NMOV ARRAY 


YS SA, MI, A MM, SM SS SO SS SS SS eS Oa 


x xk «£ A K 


CMS FILEDEF FONE DISK WKC1 CRD 
CMS FILEDEF FIWO DISK NEW ASR A; 
CMS FILEDEF FTHREE DISK WORK ASR 


OVERVIEW AND PURPOSE RRS 


THIS PROGRAM UPDATES THE ASR USING THE C1ASR FILE WHICH CONTAINS 
ANY CHANGES SINCE THE LAST SEMI-ANNUAL ASR UPDATE. 
ADDITIONS, DELETIONS, OR RESETTING THE AUTHORIZATION TO A SPECIFIC 
ONE FOSSIELE ENHANCEMENT OF THES SYSTEM WOULD BE TO INCLUDE 
THE CAPABILITY OF ADJUSTING THE C1IASR FILE TO ADD OR DELETE ENTIRE 
UNITS AT A CERTAIN MCC, OR TO CHANGE THE AUTHORIZATION OF A 
Pee EICULAR OCC FIELD OR MOS ACROSS ALL MCC'S. 


DRA x AK ke KX KKK KKK KKK KEK KEKE KE KE KR KR KR KR KR KR RK KR KK 


asses FI EeeperiNiTIoNns 


kxX =€6DEFINITION OF TERMS SESE 


“ACT THE ACTION TO BE TAKEN; ADD, SUBTRACT, OR SET EQUAL TO. 
ADJ THE ADJUSTMENT UP OR DOWN, OR THE AUTH VALUE TO BE SET 
AMT THE AMOUNT OF THE ACTION (ACT) TO BE TAKEN 

GD GRADE OR RANK 

cc MONITORED COMMAND CODE (IE. THE PRESENT LOCATION) 

MOS THE MOS CURRENTLY BEING LOOKED AT 

NUM THE PRESENT AUTHORIZATION 


x 
PROGRAM NAME: CIASR SAS x kane | x 
kek kK KR KR KK RK KK KKK KR KR KR KKK KK RR KK KK KR RK 


CHANGES MAY BE 


AK 


PURPOSE 
CONTAINS ALL MOVERS IN USMC 
HOLDS MOVER POINTER ARRAY 
CONTAINS ALL USMC NON_MOVERS 
HOLDS NON_MOVER POINTER ARRAY 


Mere RK OK RK KK KK KKK KR KEKE KR KE KR KR KR KR KR KR KR KR RR KR KR KK 


MO OO OO OO oa 


KR KK RK RK KK KR KR KR KR KR RK KR KR KR KR KR KR KR KR KR KR 
FAL eS eer ux x (Xx 


RECFM F LRECL &0 BLOCK 80 


RARKKKRKAREKKRRRARARARKRRAKRERKERRERERRARER RAR ERARER AREER ARE ERRERERERRREK 
*READ IN THE Cl CARDS AND PUT IN SINGLE LINE FORMAT; 


DATA DONE; 
INFILE FONE ; 
INPUT MOS $ MCC $ GD ADJ $ @@; 
ACT = SUBSTR(ADJ,1,1 


a ; 


aMT = Seen nae 2,4); 
DROP ADJ; 
*READ IN THE ASR; 
DATA DTWO; 
INFILE FTWO; 
INPUT MOS'S MCC $ GD NUM : 
PROC SORT DATA = DONE; 
BY MOS MCC GD; 
PROC SORT DATA = DTWO; 
BY MOS MCC GD; 
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DATA DIHREE; 
MERGE DTWO DONE; 
By Os ee. Cpr 


DATA DFOUR; 
SE TB eHREE: 
If AGE = ‘&" THEN.NUM = Gos oea 
IF ACT = 'A' THEN NUM = NUM + AMT; 
IF ACT = s! THEN NUM = NUM- AMT; 
DATA _NULL_ 
SET DFOUR; 


IF NUM = '.' THEN DEE ay 
Ir NUM LT O THEN NUM = 0; 

* OUTPUT THE NEWLY CALCULATED VALUES TO THE ASR 
Pee ae ee 
PUT MOS 1-4 MCC 7=9 GD 12 °NUree 
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APPENDIX I 
INVNTRY1 SAS 


PROGRAM TO REDUCE THE ASR BY THE NON-MOVERS 


KRRAKRKKRKARERKRRKRKRKRRAEREKAKKREKKAKKEKRKKRAKRRRRRKRKKKEKRKAARKKKKRKAKRKKREARARKR 


OO OO OOO OF OO Ok EF 


x * %* %* PROGRAM NAME: INVNTRY1 SAS a 


* 
x 
x 


Demme KOK OK KK KR KA KR KK RK KKK Kr Kr OKO KK RR KK KR KR Kk KR RK 


a OVERVIEW AND PURPOSE ETS 


IN AN EFFORT TO REDUCE THE NUMBER OF UNNECESSARY ARCS GENERATED 
BY THE MATCHING ROUTINE, THOSE BILLETS WHICH ARE OCCUPIED BY NON- 
MOVERS WILL BE SUBTRACTED FROM THE TOTAL DEMAND TO WHICH THE MOVERS 
mio be MATCHED. THIS PROGRAM IS THE FIRST OF THREE WHICH PERFORM 
THAT TASK. IN INVNTRY1 SAS, THE NON-MOVERS ARE MATCHED, AS BEST AS 
CAN BE DONE WITHOUT USING THE El AND E2 CARDS, TO THE ASR. THE GOAL 
IS TO FIND OUT EXACTLY WHICH DEMANDS THE NON-MOVERS ARE FILLING. 


THIS PROGRAM TAKES THE ROLLED UP INVENTORY OF NON-MOVERS AND 
REDUCES THE ASR BY THAT AMOUNT IN PREPARATION FOR PROCESSING BY THE 
PORTRAN PROGRAM "EXCESS" WHICH FINDS THE EXCESSES AND THE FREE ASR 


THERE WILL NOT BE A PERFECT MATCH OF PEOPLE TO ASR AUTHORIZATIONS 
SINCE THERE ARE MULTIPLE ACCEPTABLE SUBSTITUTIONS FOR MOST BILLETS. 
IDEALLY, ONE SHOULD TAKE ALL NON-MATCHES (WHETHER AN UNFILLED BILLET 
OR AN APPARENT EXCESS) AND CHECK AGAINST THE E-CARDS. IF THERE WERE 
A PERSON WITH AN MOS-GRADE COMBINATION THAT WAS NOT AUTHORIZED AT A 
PARTICULAR MCC ONE SHOULD CHECK THE SUBSTITUTIONS FOR THE OTHER 
BILLETS AT THAT MCC WHICH ARE AUTHORIZED TO SEE IF THE INDIVIDUAL'S 
MOS AND GRADE FELL INTO ONE OF THE ACCEPTABLE SUBSTITUTION CRITERIA. 
Poe SEARCH COULD BE CONDUCTED THROUGH THE E-CARDS, BY ONLY LOOKING 
AT BILLETS AT THAT MCC FOR WHICH THERE WAS AN AUTHORIZATION, BUT 
WHICH WERE NOT BEING FILLED. TO PERFORM A PERFECTLY CORRECT CHECK 
ON THE NUMBER OF EXCESSES, ONE WOULD NEED TO DO AN EXHAUSTIVE SEARCH 
THROUGH ALL OF THE E-CARDS, SIMILAR TO THAT WHICH IS DONE IN THE 
MATCHING PROCESS. ADDITIONALLY, ONE WOULD HAVE TO DETERMINE WHICH OF 
THOSE WHO ARE CURRENTLY HOLDING BILLETS FOR WHICH THEY DO NOT FIT 
SUBSTITUTIONS WERE "FIXED" THERE BY THE MONITOR, IN WHICH CASE, THE 
INDIVIDUAL MAY NOT NECESSARILY BE EXCESS. THIS WOULD, OF COURSE, 
INCLUDE CHECKING SECONDARY MOS'S AND IN MANY CASES ALLOWING GRADE 
SUBSITITUIIONS. SUCH A CHECKER MIGHT BE BUILT INTO THE MODEL LATER, 
PemeeOk THE PRESENT, WE WILL RESORT TO THE USE OF SOME HEURISTIC 
RULES TO REDUCE THE NUMBER OF INDIVIDUALS INCORRECTLY DESIGNATED AS 
meenoo.  1hh USE OF A HEURISTIC IS JUSTIFIED IN LIGHT OF THE ACTUAL 
EXCESS RECONCILIATION PROCESS WHICH INVOLVES PERMITTING REASONABLE 
DEVIATIONS FROM THE SUBSTITUTION LIST CONTAINED IN THE El CARDS. 
AFTER ALL, THE PURPOSE OF THIS PORTION OF THE PROGRAM IS TO 
DETERMINE WHICH MCC'S ARE CONSIDERED BY CMC TO HAVE EXCESS PERSONNEL 
BASED ON ACTUAL ASSIGNMENTS, NOT TO DETERMINE WHICH ASSIGNMENTS 
ae Mave THE ee =CARDS MOST SPERFECILY. THAT WILL 


THE FOLLOWING DEPARTURES FROM A PERFECT MATCH BETWEEN THE ASR AND 
THE INVENTORY WILL BE PERMITTED: 


SUR GRADE SUBSTITUTIONS TO PLUS OR MINUS ONE GRADE, EXCEPT IN 
mae CASE OF O5'S. 

Zs ANYONE WITH A 75XX AND THE APPROPRIATE GRADE MAY FILL 
feet 4 BILLET. 
3s SO0GO OR SO7OPBLEEETS MAY BE PERSONS OF EITHER MOS. 

4. SINCE SECONDARY MOS'S WERE NOT CARRIED FORWARD FROM THE 
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OE OO OE OF Oe OO OR OR OR OR OR aA 


* INVENTORY TAPE, WE WILL MAKE SOME ASSUMPTIONS CONCERNING BILLETS 
* NORMALLY REQUIRING CERTAIN SECONDARY MOS'S. ANY 75XX OFFICER OR THE 
: APPROPRIATE GRADE MAY FILL 7596 OR 9958 BILLETS. 

oe ONE IMPORTANT ADDITIONAL ENHANCEMENT WHICH COULD BE MADE 
; WITHOUT REFERENCE TO THE E-CARDS IS THE INCLUSION OF tener eeen 
* FUTURE MOS'S. THEY DO NOT APPEAR ON THE "WORKING INVENTRY" FILE AT 
i PRESENT, BUT COULD BE PULLED OFF WITHOUT TOO MUCH TRGUETEZ 


RARER RRR RRR IIR: IR: IR: RRR IRRR RII IRI RR RK kK 


kx e kee KR KR KR KR KR KR KR OKR R  O HR  R R R K R ROKR OR R OKR R RKRKRKe X 


* * * * * * * FILE DEFINITION * x * * pa x x * x 
CMS FILEDEF FONE DISK ROLNM INV A; 

CMS FILEDEF FTWO DISK WORK ASR A; 

CMS FILEDEF FFOUR DISK ASR-INV TOT- MRGE (RECFM F LRECL 80 BLOCK 80; 
cus FILEDEF FFIVE DISK NO-ASR CARD (RECFM F LRECL 80 BLOCK 80; 


FINPUT INVENTORY ; 
DATA DONE; 
INFILE FONE 
 INEUS HOS a FIRSTZ 1=2 GD 7 Mees orient 1 ececy 
“INE UTAASR : 
DATA DTWO; 
INFILE FTWO; 
INPUT MOS 1-4 FIRST2 1-2 MCC $ 7-9 GD 12 NUM 17-19; 
PROC SORT DATA = DONE; 
BX HeGeNes Gee 
PROC SORT DATA = DTWO; 
BY (Gee osecy- 
DATA DTHREE; 
MERGE DTWO DONE; 
BY 1 G@en0S 22D) 
* IF NUM IS MISSING THEN THERE IS NO ASR CARD FOR THAT MOS-GD- Meee 
* OR IF THE NUMBER ON HAND EXCEEDS AUTHORIZED STRENGTH, THERE ARE EXCESS; 
.' THEN NUM = 0; 
«' THEN CNT = 0; 


IF NUM = 0 OR NUM-CNT LE O THEN DO; 
IF NUM = CNT LE O THEN CNT = CNT - NUM; 
NUM = OQ; 
FILE FFOUR; 
eee eae Sl- ~ MOS 5-8 GD 10 CNT 12-13 NUM 15-16; 
PUT MCC ae ‘3 MOS 5-8 GD 10 CNT 12-13 NUM 15-16 FIRST2 18-19; 


END ; 
* IF CNT IS MISSING THEN NO ONE HAS FILLED ANY OF THAT REQUIREMENT YET; 
ELSE IF CNT = ae THEN DO; 
PIUE ob ROUR 
PUL Mee yo 3 MOS 5-8 GD 10 CNT 12-13 NUM Shes 


END ; 
IF THE NUMBER OF PEOPLE ON HAND (CNT) IS POSITIVE AND THE AUTHORIZEDEE 


1 ORO ob RR Rb RR oR oF 


* 

a ARK DEFINITION OF TERMS Aare 

a CNT THE NUMBER OF PEOPLE ACTUALLY ON HAND AT THE MCC 

as Bin h2 THE FIRST 2 NUMBERS IN THE INDIV'S MOS (IE. OGG FaEEm 
ze GD GRADE OR RANK 

s MOS THE MOS CURRENTLY BEING LOOKED aT 

Mee MONITORED COMMAND CODE (IE. LOCATION) 

x NUM THE NUMBER OF PEOPLE AUTHORIZED IN THAT GRADE/MOS 

* 

* 


t 
ty 
e) 
= 
rH 

| 


x 
* STRENGTH (NUM) IS GREATER THAN THE NUMBER ON HAND, THEN THERE IS SOME; 
* EXTRA CAPACITY AT THAT BILLET WHICH EQUALS NUM - CNT; 
* WE CAN TRANSFORM THIS TO A SIMPLE (TOTALLY) UNUSED CAPACITY AND SET ; 
* THE NUMBER ON HAND (CNT) TO ZERO; 
ELSE vO; 
NUM = NUM - CNT; 
Chia =70'; 
FLEE FFOUR; 


ae PUT MCC $1-3 MOS 5-8 GD 10 CNisl2=1|3 (iii 
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APPENDIX J 
ADJ-LIST SAS 


1. PROGRAM TO GENERATE POINTER ARRAY FOR MAKING FREE ASR 


KAAKKKKKKKKKKKKKKKREKAKKRKKRRKRKEREKRRRKRERRRRRERERRKRRRKRERRRKRRRREREKERRRERE 


MCCNUM THE NUMBERP Or The CURRENT MCC IN THE LIST 
NUM THE AUTHORIZATION FOR THE GRADE/MCC AT THE MCC 
STARTAT INDICATES LOCATION IN THE LIST OF NEXT STARTING POINT 


RRR KR KR RK KR KR KR KR RK ROKR KR KR KR RRR RR KR KR KR KR KR KR KR KR KR KKK 


* * * * * * * FILE DEFINITION * * * * * * * * 
CMS FILEDEF FILE] DISK NO-ASR CARD A; 
CMS FILEDEF FILE2 DISK ASR-INV TOT=- MRGE A; 
CMS FILEDEF OUTFILE1 DISK ADJ-LIST EXCESS (RECFM F LRECL 80 BLOCK 80; 
CMS FILEDEF OUTFILEZ DISK ADJ-LIST ALL-BIL (RECEM F F LRECL 80 BLOCK 80; 
Se a RR AARARRARARARAAAR AERA ERE RRR RAERRRERR ERROR 
DATA DONE; 
INFILE FILE 
ot MCG ae see 5-8 GD 10 CNT 12-13 NUM 15-16; 

Ne he DO; 

STARTAT = ool 

roe OUTFILEI; 

PUT MCCNUM 1-3 MCC $5-7 STARTAT 9-12; 


END ; 
ELSE IF a NE LAG(MCC) THEN DO; 
MCCNUM + 1; 

STARTAT = _N_ 

FILE OUTFITET ; 

PUT MCCNUM 1-3 MCC $5-7 STARTAT 9-12; 


END; 
DATA DTWO; 
INFILE FILE2; 
INPUT MCC $1-3 MOS 5-8 GD 10 CNT 12-13 NUM 15-16; 
mee N eRe THEN DO; 
“MCCN = 1; 


= l; 

STARTAT = N_; 

FILE OUTFITED: 
- PUT MCCNUM 1-3 MCC $5-7 STARTAT 9-12; 
ELSE IF MCC NE LAG(MCC) THEN DO; 

MCCNUM + 1; 

STARTAT = _N_ 

FILE OUTFILE2: 
= PUT MCCNUM 1-3 MCC $5-7 STARTAT 9-12; 


* * 
a * x * * PROGRAM NAME: ADJ-LIST SAS x ok Ok ® : 
Ke Ke Ke KR KR KR KR KR KR KR KR KR KR KR KR KR KR RK KR KR KR KR KR RR KR KR KR KR KR KK RK 
* * 
i * * * OVERVIEW AND PURPOSE * * * : 
* THIS PROGRAM GENERATES THE ADJACENCY LIST USED IN THE MAKING OF * 
* THE FREE ASR WHICH REMOVES NON-MOVERS FROM THE DEMAND. : 
Rx 

mee Ke KR Ke KR KR KR KR KR KR KR KR KR KR KR KR KR KR KR KR OR KR KR ROR KR KR KR KR KR KR KK RK 
* * 
: kkk DEFINITION OF TERMS **% i 
es CNT THE ACTUAL NUMBER OF PEOPLE ON HAND * 
* GD GRADE OR RANK x 
me HCC MONITORED COMMAND CODE (IE. LOCATION) 4 
x * 
* x 
* * 
* * 
* * 
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APPENDIX K 
EXCESS FORTRAN 


1 PROGRAM TO REMOVE EXCESS AND NON-MOVERS FROM ASR TO 
MAKE FREE ASR 


x * 


PILEDES 
14 
Lo 
16 


17 
18 
ig 


20 


BEGINA 
BEGINB 
BGRD 
BMOS 
GCAPCTY 
EXCESS 
FLAGX 
FLAGY 
GOTILX 
GOTILY 


4 Ob AH ha A HRA RRA Aaah a 


THIS PROGRAM SUBTRACTS THE NON-MOVERS FROM THE ASR WHENEVER THEY 
CAN BE PLACED WITH CERTAINTY IN A PARTICULAR BILLET. IT BEGINS BY 
REMOVING THE OBVIOUS MATCHES, AND PROCEEDS TO EMPLOY THE HEURTS@ie. 
MENTIONED IN APPENDIX I (INVNTRY1 SAS) TO DETERMINE LESS APPARENT 
ONES. EACH OF THE HEURISTICS IS EXPLAINED IN THE PROGRAM AS itm 
USED, HENCE THE PROGRAM Is SELD =DOCUMENTING. 

THE ONLY ONE OF THE OUTPUT FILES WHICH IS AGTUALEY USep tite 
PROTOTYPE IS THE FREE ASR WHICH CONTAINS THE DEMAND TO WHICH Tie 
MOVERS WILL BE MATCHED. THE OTHER TWO OUTPUT FILES ARE 
INFORMATIONAL. NO-XCESS SUP-DEM CONTAINS A LIST OF DEMANDS WHICH 
ARE COMPLETELY FILLED BY NON-MOVERS. EXCESS PERSONL CONTAINS Alea 
OF THOSE PERSONNEL WHO COULD NOT BE MATCHED TO AN ASR DEMAND AND WHO 
ARE THEREFORE EXCESS. iN FACT, SINCE THE E-CARDS WERE ONO Ustomu 
THE PROTOTYPE TO PERFORM THE DETERMINATION OF WHO IS EXCESS 32. 
FILE IS OF LIMITED USE. HOWEVER, IF THE E-CARDS ARE USED tie oor 
PROGRAM AT A LATER DATE, THE FILE COULD BE USED IN THE EXCESS 
RECONCILIATION PROCESS TO IDENTIFY NOT ONLY THOSE WHO ARE IMPROPERLY 
ASSIGNED, BUT TO HELP IDENTIFY WHICH E-CARDS MIGHT NOT BE REFER Gi 
THE, DESIRES OF Fie MONETOxS: 


a a ee ee ee ee 


RARKKRKRKKRARAKRKRREKRKKRRKRKERRRRRKEKKRRRRARRRRKRRREKKRKRRRRRKRERKKRRKRKKRRKERRKKERRKK 
*® 


BS es PROGRAM NAME: EXCESS FORTRAN x x EK * 


x 
RRR KR RRR KR KR KR RR KR ROKR KR KR KR KR KR KK KR KR RR KK KR RK 


x * * OVERVIEW AND PURPOSE eet es 


ARK FILE DEFINITIONS KKK 


FILE IDENTIFICATION DESCRIPTION / PURPOSE 
ADJ=EiST EXCESS ADJACENCY LIST FOR FILEDEF 16 
ADJ-LIST ALL<-BIL ADJACENCY LIST FOR FILEDEF 17 
NO-ASR CARD LIST OF NON-MOVERS IN BILLETS 


FOR WHICH NO ASR MATCH IS FOUND 
ASR-INV TOT-MRGE LIST OF MERGED ASR/NON-MOVERS 
FREE ASR DEMAND FOR MOVERS 
NO=E5SS. sue -DEM LIST OF ALL BILLETS ON ASR WHERE * 
ENTIRE DEMAND IS MET BY NON-MOVRS* 
EACESS PERSONS LIST OF PEOPLE WHO COULD NOT BE * 
MATCHED TO SOME ASR DEMAND 


AO OOO a 


x 
kRaeae RR KR RR RRR RRR KKK KR KKK KK KR KR K RK KR KR ROK 


RAK DEFINITION ObSTERMS eats 


START POINTER FOR PRESENT MCC GROUP WITHIN FILEDEF 14 
START POINTER FOR THE NEXT MCC GROUP WITHIN FILEDEF 14 
BILLET GRADE (THE GRADE LISTED ON THE ASR FOR THE BILLET) 
BILLET MOS (THE MOS LISTED ON THE ASR FOR THE BILLET) 

ASR DEMAND FOR THE MOS/GRADE 

THE NUMBER OF A PARTICULAR MOS/GRD FOUND IN FILEDEF 20 
END OF FILE BINARY INDICATOR FOR FILEDEF 14 

END OF FILE BINARY INDICATOR FOR FILEDEF 15 

INDICATES THE LENGTH OF THE SEARCH THROUGH FILEDEF 14 
INDICATES THE LENGTH OF THE SEARCH THROUGH FILEDEF 15 


AeA ARAAARKBAA RADA 
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* ~~ GRD GRADE OR RANK % 
* HGRD HIGHEST ACCEPTABLE GRADE FOR A DEMAND * 
* ~~ LGRD LOWEST ACCEPTABLE GRADE FOR A DEMAND x 
* MARKER COUNTER TO MARK POSITION IN THE OVERALL LIST x 
rh) ~MCCX1 CURRENT MCC FOR FILEDEF 14 * 
a MCCX2 NEXT MCC FOR FILEDEF 14 zs 
mo MCCY1 CURRENT MCC FOR FILEDEF 15 x 
aoe MCCY2 NEXT MCC FOR FILEDEF 15 x 
* PEOPLE THE NUMBER OF PEOPLE ACTUALLY ON HAND WITH THAT MOS/GRD * 
*x =€6©PMOS PRIMARY MOS x 
. STARTA START POINTER FOR MOS/GRADE COMBINATION IN FILEDEF 14 ~ 
F STARTB START POINTER rOR NEXT MOS/GRADE COMB. IN FILEDEF 14 = 
KEKKRAKAAAKKKKARKKKKKKAKAAAKKAAKKAKKKRKERE KEK KKKAKRA RE KRERKRKKKRAKRKKK KR 


INTEGER*4 FLAGX, FLAGY,STARTA,STARTS, SEGINA, BEGINE ,GOTILX,GOTILY, 
Sees one eer en, carer, FMOS GRD, 2AGSso ,c7IRST2Z,MARKER,LGRD,HGRD 
CRARACTER Guicexl | MEGxZ MEGY1 MCCY2Z 
DIMENSION ee eee Eee Gao eee ens (S00). 
CGRD(500) ,EXCESS(500) , FIRST2(500) ,MARKER(500) 
RKEEKKKRKKRKK CN Wis TZ RREEKRKKEKK 


FLAGA 
FLAGY 0 


*xx*X = READ FIRST VALUES TO BE COMPARED eee 
En eno MCCX2Z,STARTB 
Renbt or l.0l ) MCCY2, BEGINB 

Od FORMAT (4X,A3,1X,1I4) 


kx SET STARTING AND ENDING POINTS FOR CARDS TO BE SEARCHED IN ZACH LIST 
xx SET START AND =ND VALUES OF I (K) FOR SEARCH OF EXCESS FILE 
1 MCCX1 = MCCX2 
ETARGA =| STARTS 
READ(14,101,END=91) MCCX2,STARTB 
2 IF (FLAGX EQ. QO) GOTILX = STARTB - STARTA 
IF (FLAGX .£Q. 1) GOTILX = STARTA + 200 


xx SET STARTING AND ENDING POINTS FOR SEARCH OF ALL CARDS SORTED BY MCC 
3 Mee v= MCCYZ 
BEGINA = BEGINB 
READ(15,101,END=92) MCCY2,BEGINB 
4 IF (FLAGY Bae Q) GOTILY = BEGINB - BEGINA 
IF (FLAGY .EQ. 1) GOTILY = BEGINA + 200 


xk IF CARD CHOSEN NOT IN SAME MCC AS EXCESS CARD, GO THROUGH ALL CARDS 
xx OF THAT MCC AND RECORD EACH MCC MOS GRADE AND DEMAND FOR THAT CARD, 
**k SINCE THE CARD IS CORRECT. 
eecMecy] .NE MCG ex] ) THEN 
DOr LO gt =, COLLEY 
READ(17,102,END=94)BMOS(I), BGRD(I),CAPCTY(T) 


102 FORMAT (4X,14,1X,1I1,4X,1I2 
Wie ls 10a) MCGY1, BMOS(1),BGRD(I),CAPCTY(T) 
103 FORMAT@Re, LX, £470%,11,1X,I2) | 
10 CONTINUE 
oo GOuTO™s 


==) IF THE MCC FROM THE COMPLETE LIST IS THE SAME AS THE MCC OF THE 
xx EXCESS CARD THEN ALL OF THE FOLLOWING n ="GOTILY" CARDS FROM THE 
xX COMPLETE LIST WILL ALSO BE FROM THE SAME MCC, AND MIGHT BE 
xX USEFUL IN ELIMINATING ALL OR PART OF THE EXCESS AMOUNT, IF THEY 
xX MATCH THE EXCESS CARD WITHIN ONE GRADE, OR FILL SOME OTHER 
*X CRITERIA WHICH MAKES THE EXCESS AN ACCEPTABLE FILL FOR THAT 
oe SL LLET. 
Peorelh (MCCX] .£0. MCCY1) THEN 
**X READ ALL THE CARDS FROM THAT MCC WHICH APPEAR ON THE COMPLETE LIST. 
xx MARKER IS USED TO ENSURE THAT RECORDS WHICH APPEAR ON BOTH 
xx FILES DO NOT APPEAR TWICE IN THE OUTPUT. 
BO 20 1. = 1,CGOTIiLy 
READ(17,104,END=94)BMOS(I), BGRD(I) ,PEOPLE(I) ,CAPCTY(TI) 


104 FORMAT (4X,14,1X,11,1X,12,1X,1I2 
MARKER(I) = 0 
20 CONTINUE 
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aK 


105 
30 
wk 
ax 
wx 


x 
RR 


KK 
x* 
a* 


RR 


XR 


xx 
RX 


READ ALL THE EXCESS CARDS FROM THAT MCC 
DO 30 J = 1,GOTILX 
READ (16, 105, END=95 ) Pye ey GRD(J) ,EXCESS(J),FIRST2(J) 
FORMAT (4X, 4, ne Tl, De l2naes 2) 
CONTINUE 


BEGINNING WITH THE FIRST EXCESS CARD FROM THAT MCC O3SEE [Peale 
THE OTHER CARDS AT THAT MCC COULD BE USED TO "RECEIVE™ 
OR ABSORE SOME OF THe OE ccc. 
DO 40 K = 1,GOTILX 
DO 50 L = 1,GOTILY 


FIRST, CHECK TO SEE IF THE CARD WE ARE COMPARING 2) = TOTAL 
PILE PSeice aaa wae THE EXCESS FILEVWE ARE SZOORTNGes 
[TF ((BMOS(L) (50. PMOS()) ee GRD (L) EQ. 
S cab (Ky) MARKER (L = 1 


IF THE CAPACITY ON THE CARD IS ZERO, IT OBVIOUSLY CANNOT ABSORB 
ANY OF THE EXCESS. WHEN WE SEND THE PROGRAM TO 7 (GOTO 7), WE 
ARE SELECTING THE NEXT CARD FROM THE TOTAL CARD FILE. 

iF (CAPCTY(L) EQ.) Gonoun 


IF THE DEMAND IS MORE THAN ONE GRADE AWAY FROM THE DEMAND ON THE 
BACESS CARD, IT CANNOT MEET THE GRADE SUSSTITUIZON CAbteRe 

LGRD = BGRD(L) - 1 

HGRD =) BGR eae 

IF ((GRD(K) .LT. LGRD) .OR. (GRD(K) .GT. HGRD))) Gouge 


3060 AND 3070 MOS'S ARE INTERCHANGEABLE. CN THE Zl CARDS, SO ANY 
3060 OR 3070 cheeaeee MAY 3E oe 3Y 2070 OR 3060 S8ILLETS 
a ee K) ao 60 ) Boe (PMOS(K) .=0. 3070)).AND. 
e ((BMOS (L) ee 20 Sy “OR. MOS(L) .20.307G)))) (teen 
o (CAPCTY (Z ; CE zxcees(x), THEN 
CAPCTY( APCTY(L) - EXCESS(K 
EXCESS(K) = 
WRITE (19, 103) MCCX1, PMOS(K),GRD(K) ,EXCESS(K) 


ELSE LF {CAPCTY (L) iT. EXCESS(K)) THEN 
ey. = EXCESS(K) - CAPCTY(L) 
CAPCTY L 
GOTO 7 
END IF 
ND IF 
SINCE THE SECONDARY MOS'S WERE NOT PULLED FROM THE INVENTORY 
NONE OF THE 7596 BMOS'S WERE MATCHED BY THE SAS JOB. 
IT IS ASSUMED THAT IF THERE IS ARE 75XX MOS'S AT AN MCC, THAT 
THERE IS AT LEAST ONE WITH THE 7596 SECONDARY FOR EACH 7596 BILLET. 
IF ((FIRST2(K) .=0. 75) (BMOS(L) .£0. 7596)) THEN 
IF (CAPCTY(L) .GE. EXCESS (R)) THEN 
CAPCTY(L) = CAPCTY(L) - EXCESS(K) 
EXCESS(K) = 0 
WRITE (19, 103) Mceae —— GRD(K) , EXCESS (K) 
G 


O10 

ELSe& IF (Carcty (1) LT. BXCESol Koma 
BACHE oo Ch EXCESS (X) +  aRpCTY (L) 
CAPCT ZL 0 
GCOlOry, 


SINCE 9912 IS ONLY A BMOS, ALL 93912 BMOS ASR DEMANDS WERE ieee 
UNMET. HERE, WE ALLOW ANY REMAINING 75XX'S TO FELE)99l2)sPRrere 
NOTE - WE SHOULD LATER MARK ALL SHORT 75XX MOS'S AND ENSURE THAT 
SHORT MOS'S ARE NOT ALLOWED TO FILL $912 BILLETS. THiS CAlNeSsaeeee 
BY MARKING THE SHORT MOS°S SOMEHOW. 
IF ((FIRST2Z(K) . EO. 75) eee ACS) EQ. 9912)) THEM 
iE (CAPCTY(L) -GE. EXCESS(Rpa. 

CAPCTY(L) = CAPCTY(L) = EXCESS (K) 

EXCESS (K = Q 

Wea ee ,103) MCCX1, PMOS(K),GRD(K) ,EXCESS(K) 


GOTO 
BLOBS s (CAPCTY(L) ~LT. SXCESS(K) nen 
EXCESS(K) = EXCESS (K) = CAPCI Tes) 
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CAPCTY(L) = 
Golo? 
Be IF 


END 
IF ((FIRST2(K) .EQ. 75) .AND. (BMOS(L) .EQ. 9958)) THEN 
CAPC crt (uy = CAPCTY(L) - 1 
EXCESS(K) = EXCESS(K) - 1 
IF (EXCESS(K) .EQ. 0) THEN 
WRITE 19, /103) MCCX1, PMOS(K),GRD(K) , EXCESS (RK) 
0 


END IF 
IF (CAPCTY(L) .EQ. 0) GOTO 7 
END IF 
7 CONTINUE 
50 CONTINUE 


pe poo MCC EXCESSES WHICH DID NOT GET ABSORBED BY THE OTHER BILLETS 
RX 

BEIT EN 2O,, 107) MCCX1,PMOS(K),GRD(K) ,EXCESS(K) 
40 CONTIN 


xx NOW ALL oil ASR DEMAND AT THE MCC HAS BEEN SEARCHED IN AN 

Bee EPFORT TO REDUCE SOME OF THE EXCESSES. THOSE EXCESSES WHICH COULD 
xx BE ELIMINATED WERE ALREADY OUTPUT TO THE FILE CONTAINING ALL OF THE 
xk NON-EXCESS DEMAND. ALL REMAINING EXCESSES WERE OUTPUT TO A FILE 

xX OF EXCESSES. (FILEDEF 10 - EXCESS PERSONL Al). NOW, WE WILL OUTPUT 
xx THE REST OF THE CARDS FROM THE TOTAL ASR DEMAND FILE EITHER TO A 

xk NULL FILE FOR THOSE WITH NO REMAINING CAPACITY (FILEDEF 09 - 

xX NO-XCESS SUP-DEM Al) OR TO A FILE CONTAINING THE TRUE ASR DEMAND 

xX REMAINING FOR’MOVERS. (FILEDEF 08 = FREE ASR Al) IN DOING SO, WE 
xX WILL OF COURSE, LEAVE OFF THOSE BILLETS WHICH WE ALREADY OUTPUTED 
xX TO ONE OF THE OTHER FILES, WHICH ALSO CORRESPOND TO THE BILLETS ON 
“= THE EXCESS FILE ad ca ARE MARKED BY MARKER(L). 


DO 60 N = 1,GO0T 
ie (CAPCTY (N) ZO. 
IF (MAR KER(N EC. 0) THEN 
eC ,107)MCCY1, BMOS(N), BGRD(N) ,CAPCTY(N) 


END 
ELSE IF (CAPCTY(N) .NE. 0) THEN 
IF (MARKER(N) .EO. 0) THEN 
ent Rage (18, ,107)MCCY1,BMOS(N), BGRD(N) , CAPCTY(N) 


ENS” IF 
LO? FORMAT (A3,1X,14,1X,11,1X,1I2) 
60 CONTINUE 
END IF 
IF BEACH .NE.1) GOTO 1 
GO To 9 


91 FLAGX = 1 
92 FLAGY = 1 
94 GOTILY = | 
95 GOTILK = J 


3 CLOSE (14) 
CLOSE (15 
CLOSE(16 
SEOSE (17 
CLOSE (18 
SLOSE(19 
CLOSE (20 
STOP 
END 
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APPENDIX L 
ASRE2A SAS 


PROGRAM TO ATTACH BILLET OFFICER DESCRIPTIONS (BOD’S) TO 
FREE ASR 


RAKKAARKAKRARAARARARKERKKKKARKRARAKRRERRAREARARARKKRRERRRRRKRARKKRARRKKKRKERRKKAKAERK 


* 


x 


x 


PROGRAM NAME: ASRE2A SAS x * ae 


* 
* 
* 


Keke KR KR KR RR KR KR KR KR KR ROKR KR ROKR KK KR KR KR RK RK K KR KK KK Ke 


RACH ASR DEMAND THAT APPEARS IN THE FREE ASR. 


* 


* 


* OVERVIEW AND PURPOSE bs is 


THIS PROGRAM ATTACHES THE BILLET OFFICER DESCRIPTION (BOD) TO 


IT DOES THis tea 


MATCHING EACH OF THE EZ CARDS THAT MATCH TO A SPECIFIC DEMAND TGete. 
DEMAND IN ORDER OF THEIR PRIORITY. THE EXTREME LENGTH On Sia 
PROGRAM IS A RESULT OF ONE OF THE MAJOR DEFICIENCIES WITH USINGHoas 


TO MATCH AND MERGE SEVERAL FILES. 


SAS CANNOT USE THE LAG FUNCTION 


ON VARIABLES CREATED WITHIN THE DATA SET. THEREFORE WE MUST 

MAKE AN ADDITIONAL DATA SET WHICH WILL BE USED TO PERFORM THE DEMAND 
RECONCILIATION PROCESS. ALSO, IT CANNOT INPUT DATA FROM MULTIPEE 
SETS SIMULTANEOUSLY. RATHER, IT MUST COMPLETELY READ EACHeSe ia 


BEFORE READING THE FIRST VALUE IN THE NEXT SET. 


AS A RESULT, THs 


PROGRAM HAS NUMEROUS LOOPS THROUGH THE SAME DATA SET IN ORDER TO 
CHECK POSSIBLE ADDITIONAL REQUIREMENTS AT A PARTICULAR MCC. IN 
PULL SCALE MODEL, 
FORTRAN. 


RrerAR RAK Keke R RR KR RRR ROKR KR KR KR KR RK KH KK RK KR KR KR KR Kee 


kraraR KR KR RR RRR RRR KKH RK RK KR KR KR KR KK KR K KAR ee 
KX 


* 


BOD 
c 
CAP 
CAP2 


SEL 
SAMT 


* 


* 


* 


KKK 


ANY 
IT WOULD BE ADVISEASLE TO RE-WRITE THIS ROUTEIE Say 


DEFINITION OF TERMS ARK 


FIST CHARACTER OF THE MCc 
SECOND CHARACTER VOF sthh ence 
BLELE? OPE TIGER PESCE UE TION 


THIRD 
TOTAL 
TOTAL 
BERST 
GRADE 
GRADE 
GRADE 


CHAKAGIER (OF STHa Ge 

AUTHORIZED DEMAND AT THE CURRENT MCC 
AUTHORIZED DEMAND AT THE NEXT Mee 
TWO CHARACTERS OF THE MCC 

OR RANK (INTEGER) 

OR RANK (CHARACTER) 

OR RANK (INTEGER) OF NEXT DEMAND 


THE MOS CURRENTLY BEING LOOKED AT 

THE NEXT MOS WHICH WILL BE LOOKED AT 

CURRENT MONITORED COMMAND CODE (LOCATION) 

NEXT MONITORED COMMAND CODE (LOCATION) 

NUMBER OF MARINES FILLING THE DEMAND BEING LOOKED AT 
NUMBER OF MARINES FILLING THE NEXT DEMAND TO BE EXAMINED 
OPE TCER IVF 

SPLIT ADJUSTMENT - ADD (A), SUBTRACT (S), OR PROPORT (P) 
STAFFING PRECEDENCE LEVEL 

SPLIT AMOUNT NAME CONTAINING START & ENDING POINTS 


* * ‘FILE DEFINITION * * *% X * A= ee 


CMS FILEDEF FONE DISK WKEZ CRDGE: 
GMS FILEDEF FIWO DISKVEREE@oSkea, 


CMS FILEDEF FTHREE DISK E2ASR MIX-MOVR (RECFM F LRECL 80 BLOCK 80 
RAKKKKKKKRRAKAAKARKARKKKRKRKARKRRRREKRRERRARKAKKRAKKERKKEKAKRERARRERRRERK A 


*READ IN E2 CARDS; 
DATA DONE 
DTWO 
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4 OO OO 


% OO OO OHHH aa 


Sek eeu 


DTHREE 


DFOUR ; 
INFILE FONE ; 
INPUT MOS 1-4 OT Meare ASeigebestls7—-15 B S 18 C$ 19 MCCS 17-19 
GRD $21-22 SA 4 24 SING 25 27 SPL 29 BOD 3 34-42; 
E2NUM + 1; 
IF GRD = 'WO' THEN GD = 1; 
IF GRD = '02!' THEN GD = 2; 
IF GRD = '03!' THEN GD = 3; 
IF GRD = '04' THEN GD = a 


IF GRD = '05' THEN GD 
*BREAK £2 CARDS INTO FOUR GROUPS; 
IF A = '*! THEN OUTPUT DONE: 
ELSE IF B = '*' THEN OUTPUT DTWO; 
ELSE IF C = '*! THEN OUTPUT DTHREE 
ELSE OUTPUT DFOUR; 


*INPUT DATA FROM ASR 
DATA DFIVE (KEEP = Mos GD MCC A D NUM); 
INFILE FTIWO; 
INPUT A $1 D $1-2 MCC $1-3 MOS 5-3 GD 10 NUM 12-13; 


“MERGE ASR WITH ALL OF E2 CARDS; 


PROC SORT DATA = DFIVE; 
Be MOS GD MCC; 


eon! FULL SPEC MCC EZ CARDS; 
PROC SORT DATA = DFOUR; 
ei O> GD MCC; 


OyeRGe FULL SPEC MCC EZ CARDS WITH FREE ASR; 
DATA DSIX; 

MERGE DFOUR Davis; 

eeenos GD MCC; 


BeeORD SSTAR MCC £2 CARDS; 
PROC SORT DATA = DONE; 
Bs MOS GD; 


Bence SSTAR MCC E2 CARDS WITH FREE ASR; 
DATA DSEVEN ; 

MERGE DONE DEINE: 

BY MOS GD; 


*SORT 2STAR MCC E2 CARDS ; 
PROC SORT DATA = DTWO; 
BY MOS GD A; 


*MERGE 2STAR MCC E2 CARDS WITH FREE ASR; 
DATA DEIGHT; 

MERGE DTWO DFIVE; 

BY MOS Gd A; 


Soonr ISTAR MCC £2 CARDS; 
PROC SORT DATA = DTHREE; 
Be MOS Go D; 


*MERGE eee MGG G2 GCAnDS WITH FREE ASR: 
DATA DNIN 

MERGE DTHREE DFIVE; 

Be MOS GD D; 


XOUTPUT DATA; 
DATA DTEN:; 
eee DSIX DSEVEN DEIGHT DNINE; 
IF NUM EQ .' THEN DELETE; 
IF BOD EO ! ' THEN DELETE; 
CAP = NU : 
PROC SORT DATA = DTEN; 
BY MOS GD MCC SPL; 


DATA Dll; 
Ser DIEN;: 
IF MOS NE LAG(MOS) OR GD NE LAG(GD) OR MCC NE LAG(MCC) THEN DO; 
IF SA NE 'A! THEN CAP = NUM; 
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ELSE IF SA EQ 'A' THEN DO; 


SAMT GE NUM THEN CAP = NUM; 
IF SAMT LT NUM THEN CAP = SAMT; 
END ; 
END; 
DATA Dl2: 
SET Dll: 
NUM2 = LAG — - LAG(CAP); 
MOS2 = LAG(MOS); 
GRD) = bac (ene 
MCC2 = LAG (MCC) ; 


TF Sa NE “AY JHE 26- 
IF N_=1 THEN CAP = NUM; 
IF MOS BO MOSZ allp Gb eo GRD2 AND MEG =O" Meez THEN DO; 
NUM = NUMZ; 
CAP = NUM; 
END: 
aes MOS2 OR GD NE GrRDZ2 OR MCC NE MCC2 THEN DO; 
— 1 : 
= aND; 


ND; 
ELSE IF SA EQ’ *S) THEN. 0G; 
IF *N_ = 1 THEN 50; 


IF SAMT GE NUM THEN CAP = NUM; 

a: ws SAMT LT NUM THEN CAP = SAMT: 

ELSE IF MOS ZQ MOS2 AND GD £0 GRD2 AND MCC EQ MCC2 THEN DO; 
NUM = NUMZ2: 
IF SAMT GE NUM THEN CAP = NUM: 


iF SAMT LI NUM THEN CAP Sail 
END; 


ELS&@ IF MOS NE MOSzZ OR GD NE GRDZ OCR MCC NE MCCZ) Sneha 
IF SAMT Ge NUM THEN CaP NUM; 


IF SAMT LT NUM THEN CAP = SAMT; 
END; 
END; 
DATA D13: 
SET Did; 
NUM2 = LAG NK) - LAG(CAP); 
_ MOS2 = LAG(MOS 
GRD2 = Pacicnn- 
MCC2 = LAG(MCC}); 


IF SA NE 'A' THEN De 
IF _N_ = 1 THEN CAP = NUM; 
ce oe EG re ae AND GD EQ GRD2 AND MCC EO MCCZ THEN Sep 
NUM 


ost > ane 
N 
IF MOS NE MOSZ OR GD NE GRD2 OR MCC NE MCCZ THEN TSG. 
CaP = NUM; 
END; 
END; 
ELSE is SA EO 'A) [AEN DO- 
IF 1 THEN DO; 
IF Sam GE NUM THEN CAP = NUM; 
END. SAMT LT NUM THEN Car = SAMT; 
ELSE IF MOS £Q MOS2 @ND GD =O GRDZ AND MCC "EO MCGZ THeleve. 
NUM = NUM2; 
LF SAMT Ge NUM THEN Ca NUM; 


eee SAMT LT NUM THEN CAP = SAMT; 
ELSE IF MOS NE MOS2 OR GD NE GrRDZ OR MCC NE MCCZ THEN DO; 
IF SAMT Gz NUM THEN CAP NUM; 
IF SAMT LT NUM THEN CAP SAMT ; 
END; 
END; 


DATA DLS; 
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Sea DLs; 
NUM 


e=niAG oe - LAG(CAP); 
MOS2 = LAG(MOS 
GRD2 = LAG(GD) ; 
MCC2 = LAG(MCC); 


LA 
IF SA NE 'A' THEN DO; 
IF N_ = 1 THEN CAP = NUM 
Oe Smee AND GD EQ éRp2 AND MCC EQ MCC2 THEN DO; 


eT a = NUM; 

IF MOS NE MOS2 OR GD NE GRD2 OR MCC NE MCC2 THEN DO; 

CAP = NUM; 

mae 
BISE IF SA Ee 'A' THEN DO; 

ITE _N_ THEN DO; 
IF Sant GE NUM THEN CAP = NUM; 

END: SAMT LT NUM THEN CAP = SAMT; 

ELSE IF MOS re MOS2Z AND GD =Q GRD2Z AND MCC EQ MCC2 THEN DO; 
UM = 
IF SAMT GE NUM THEN CAP = NUM; 
IF SAMT LT NUM THEN CAP = SAMT ; 


END; 
ELSE IF MOS NE MOS2 OR GD NE GRD2 OR MCC NE MCC2 THEN DO; 
IF SAMT GE NUM THEN CAP = NUM; 
IF SAMT LT NUM THEN CAP = SAMT; 
END; 
END; 
DATA D14; 
Bel DLS; 
NUM2 = LAG ae - LAG(CAP); 
MOS2 = LAG(MOS 
GRD2 = LAG(GD); 
MCC2 = LAG(MCC 
IF SA NE 'A' THEN DO; 
IF _N_ = 1 THEN CAP = NUM; 
IF MOS EQ MOS2 AND GD ES GRD2 AND MCC EQ MCC2 THEN DO; 
NUM = NUMZ2; 
CAP = NUM; 
END; 
ee MOS NE MOS2 OR GD NE GRD2 OR MCC NE MCC2 THEN DO; 
CAP = NUM; 
END; 
END ; 
ELSE IF SA EQ 'A' THEN DO; 
IF = 1 THEN DO; 
IF SAMT GE NUM THEN CAP = NUM; 
STi LT NUM THEN CAP = SAMT; 


ELSE IF MOS EQ MOS2 AND GD EQ GRD2 AND MCC EQ MCC2 THEN DO; 
NUM = NUM2; 


IF SAMT GE NUM THEN CAP = NUM; 

enpe LT NUM THEN CAP = SAMT; 

ELSE IF MOS NE MOS2 OR GD NE GRD2 OR MCC NE MCC2 THEN DO; 
IF SAMT GE NUM THEN CAP = NUM; 
IF SAMT LT NUM THEN CAP = SAMT; 


END ; 
END ; 
DATA DELEVEN; 
SET D14; 
= LAG Nit} - LAG(CAP) 
MOS2 = LAG(MOS); 
GRD2 = LAG(GD); 
MCC2 = LAG(MCC}; 


IF SA NE 'A' THEN DO; 
IF .N_ = 1 THEN CAP = NUM ; 
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IF MOS EQ MOS2 AND GD EQ GRD2 AND MCC EQ MCC2 THEN DO; 
NUM = NUM2; 


E a NUM; ” 
IF Mos NE MOS2 OR GD NE GRD2 OR MCC NE MCC2 THEN DO; 
END on pee 


END ; 
ELSE IF SA EQ 'A' THEN DO; 
Pe ON ee Neer 


IF SAMT GE NUM THEN CAP = NUM; 

NDS Meee LT NUM THEN CAP = SAMT; 

ND; 

ELSE IF MOS EQ MOS2 AND GD EQ GRDZ AND MCC EQ MCCZ THES. 
NUM = NUMZ; 
IF SAMT GE NUM THEN CAP NUM; 


IF SAMT LT NUM THEN CAP = SAMT; 


END; 
ELSE IF MOS NE MOS2 OR GD NE GRD2 OR MCC NE MCC2 THEN DO; 
IF SAMT GE NUM THEN CAP = NUM; 
IF SAMT LT NUM THEN CAP = SAMT ; 
END ; 
END ; 
IF CAP QO THEN DELETE; 
OLDCAP = LAG(CAP); 


PROC SORT DATA = DELEVEN; 
BY E2ZuM; 


DATA _NULL_; 
See OSCE VEN 
PELE fone es 
PUT MOS 1-4 Of 7-14 MCC Mel oNGpeZl ace 
SA 24 SAMT 26-28 SPL 30 BOD 34-42 CAP 44-46 NUM 48-50; 
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APPENDIX M 
ASRE2B SAS 


1. PROGRAM TO ATTACH BILLET OFFICER DESCRIPTIONS (BOD’S) TO 
FIXED ASR 


x 


nk ks PROGRAM NAME: ASREZB SAS peo NS As - 
RR KKK RK RRR KR KKK RK KK RR KR 


a 
+ 
A 
+ 
A 
+ 
A- 
j 
A 
A 
: 


ents OVERVIEW AND PURPOSE as 


THIS PROGRAM ATTACHES THE BILLET OFFICER DESCRIPTION (BOD) TO 
EACH ASR DEMAND THAT APPEARS IN THE TIXED (WORK) ASR. THIS IS DONE 
THE SAME WAY THAT BODS ARE ATTACHED TO THE FREE DEMAND IN ASREZA: BY 
Peemeni@srach OF THE E2 CARDS THAT MATCH TO A SPECIFIC DEMAND TO THE 
Were tN ORDER OF THRETR PRIORITY. THE EXTREME LENGTH OF THIS 
PROGRAM IS aA RESULT OF ONE OF THE MAJOR DEFICIENCIES WITH USING SAS 
mOeMATCH AND MERGE SEVERAL FILES. SAS CANNOT USE THE LAG sUNCTION 
Si VAREABLES CREATED WITHIN THE DATA SET. THEREFORE WE MUST 
Mane AN ADDITIONAL DATA SET WHICH WILL SE USED TO PERFORM THE DEMAND 
BmeclGrTuLATION FROGCESS. ALSO, IT CANNOT INPUT DATA FROM MULTIPLE 
Peeper LUULTANEOUSLY. KATHER, £7 MUST COMPLETELY READ EACH SET IN 
meoene READING THE FIRST VALUE IN THE NEXT SET. Ro Cent OUL Tam aS 
PeaeoGRaln HAS NUMEROUS LOOPS THROUGH THE SAME DATA SET IN ORDER TO 
CHECK POSSIBLE ADDITIONAL REQUIREMENTS .AT A PARTICULAR MCC. IN ANY 
Bee oCALE MODEL, IT WOULD BE ADVISEABLE TO KE-WRITE THIS ROUTINE IN 
FORTRAN. THE ONLY DIFFERENCES BETWEEN THIS PROGRAM AND ASREZA ARE 
tae PLLE DEFINITIONS. 


Beem K KKK KKK KR KR KR KR KR KR RK KR RRR RRR RRR RR KR KR KR KR 


AA* DEFINITION OF TERMS ARK 


A . FIST CHARACTER OF THE MCC 

B SECOND CHARACTER OF THE MCC 

BOD BILLET OFFICER DESCRIPTION 

c THIRD CHARACTER OF THE MCC 

CAP TOTAL AUTHORIZED DEMAND AT THE CURRENT MCC 

CAP2 TOTAL AUTHORIZED DEMAND AT THE NEXT MCC 

D FIRST TWO CHARACTERS OF THE MCC 

GD GRADE OR RANK (INTEGER) 

GRD GRADE OR RANK (CHARACTER) 

GRD2 GRADE OR RANK (INTEGER) OF NEXT DEMAND 

MOS THE MOS CURRENTLY BEING LOOKED AT 

MOS2 THE NEXT MOS WHICH WILL BE LOOKED AT 

MCC CURRENT MONITORED COMMAND CODE (LOCATION) 

MCC2 NEXT MONITORED COMMAND CODE (LOCATION) 

NUM NUMBER OF MARINES FILLING THE DEMAND BEING LOOKED AT 
NUM2 NUMBER OF MARINES FILLING THE NEXT DEMAND TO BE EXAMINED 
OT OFFICER TYPE 

SA SPLIT ADJUSTMENT - ADD (A), SUBTRACT (S), OR PROPORT (P) 
SPL STAFFING PRECEDENCE LEVEL 

SAMT SPLIT AMOUNT NAME CONTAINING START & ENDING POINTS 


KKK Ke KR RRR KR KR KR KR KR KR KR KR KR KK KK KR eK Kr Kr KR KK KKH 
* * * * * * * * FILE DEFINITION * * * * * * * * * 


CMS FILEDEF FONE DISK WKE2 CRD a; 

CMS FILEDEF FTWO DISK WORK ASR A; 

CMS FILEDEF FTHREE DISK E2ASR MIX-NMOV (RECFM F LRECL 80 BLOCK 80; 
*READ IN E2 CARDS; 

DATA DONE 


4H HAHAHAHAHAHA AR A KARA DRAKRRRADRA RRR RAHA AA AKAR HAAR AKAR AAA HRABSD 


+ + AAA A AEH HAA HHH hahaa KRAMER AA KPA AAA AA AA ASD 


8) 


DTWO 


DTHREE 
DFOUR ; 
INFILE FONE; 
INPUT MOS 1-4 OT $ 7-14 A S 17° D°G417-16 8S 18°C S [oe 
GRD $21-22 SA $ 24 SANT 25-27 SPL 29 BOD $ 34-42; 
EZNUM + 1; 
IF GRD = 'WO!' THEN GD = 1; 
IF GRD = 'O2!' THEN GD = 2; 
IF GRD = '03' THEN GD = 3; 
IF GRD = '04' THEN GD = 4; 
TF GRD = O05" = 7hEN. cee =—5— 


“BRERK &2 CARDS INTO FOUR GROUPS ; 
a = '*' THEN QUTPUL IDOE 
ELSE = B = '*!' THEN OUTPUT DTWO; 
ELSE IF C = '*!' THEN OUTPUT DTHREE; 
ELSE OUTPUT DECUE. 


XINPUT DATA FROM ASR: 
DATA DFIVE (KEEP = MOS GD MCC A D NUM); 
CNG Ieee Wo; 
INPUT MOS 1-4 A $7 D 57-3 He€@ S7-3 022 a 


“MERGE ASR WITH ALL OF EZ CARDS: 


PROC SORT DATA = DEIVE; 
See yl OS) MEO ele 


ASORTOFULEVSERCe MEG BZ CaeEs- 
PROC SORT DATA = DEFOUR; 
22 105 -Gpe Nee, 


*MERGE FULL SPEC MCC £2 CARDS WITH FREE ASR; 
DATA DSI; 

MERGES POURS Er ya. 

BY es Gy ee- 


“SORT SSTAR MCG 2 Gans 
PROC SORT DATA = DONE; 
BY M05 Gp; 


*MERGE 3STAR MEG EZ GARDS Wein FREE sok; 
DATA DSEVEN 

MERGE DONE DaiviEn 

By MOS GD; 


*SORT 2STAR MCC E2 CARDS; 
PROC SORT DATA = DTWO; 
BY MOS GA 


*MERGE 2STAR MCC E2 CARDS WITH FREE ASR; 
DATA DEIGHT; 

MERGE DTWO DFI NG; 

BreM0s GD os; 


XSORT 1ISTAR MCC E2 CARDS: 
PROC SORT DATA = DTRREE; 
BY MOS GD D; 


*MERGE ISTAR MCC E2 CARDS With shee eons, 
DATA DNINE 

MERGE DTHREE DFEVE- 

Bees) GD ol; 


“OUTPUI DATA; 
DATA DTEN; 
sel DSIX DSEVEN DEIGHT DNINE; 
IF NUM EQ '.° “THEN DELETE; 
LEesou nO Y THEN Sista 
CAP = NUM; 
PROC SORT DATA = DTEN; 
BY MOS .GD NGC Ser 


DATA Diag 
SET DTEN; 
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IF MOS NE LAG (MOS) OR GD. NE LAG(GD) OR MCC NE LAG(MCC) THEN DO; 
IF SA NE 'A' THEN CAP = NUM; 
ELSE IF SA EQ 'A' THEN DO; 
IF SAMT GE NUM THEN CAP 
IF SAMT LT NUM THEN CAP 


NUM; 
SAMT ; 


END; 
END ; 
DATA Diz; 
SET Dll; 

NUM2 = LAG Hee - LAG(CAP); 
MOS2 = LAG(MOS); 
GRD2 = LAG(GD) 
MCC2 = LAG(MCC 


e 
IF SA NE 'A' THEN DO; 
IF _N_ = 1 THEN CAP = NUM 
IF HOS EQ MOs2 AND GD EO GRD2 AND MCC EQ MCC2 THEN DO; 


Cy 


bi ae NUM; 
IF MOS NE MOS2 OR GD NE GRD2 OR MCC NE MCC2 THEN DO; 
CAP = NUM; 
END ; 
END ; 
ELSE IF SA ER Be THEN DO; 
IF _N_ THEN DO; 
IF ate GE NUM THEN CAP = NUM ; 
a SAMT LT NUM THEN CAP = SAMT; 


EN 
ELSE IF ‘MOS EQ MOS2 AND GD EQ GRD2 AND MCC EQ MCC2 THEN DO; 
NUM = NUMZ; 


IF SAMT GE NUM THEN CAP NUM ; 
IF SAMT LT NUM THEN CAP SAMT ; 


END ; 
ELSE IF MOS NE MOS2 OR GD NE GRD2 OR MCC NE MCC2 THEN DO; 
IF SAMT GE NUM THEN CAP = NUM; 


IF SAMT LT NUM THEN CAP = SAMT; 
END ; 
DATA D13; 
SET Diz; , 
NUM2 = LAG NU) - LAG(CAP); 
MOS2 = LAG(MOS 
GRD2 = LAG(GD); 
MCC2 = LAG(MCC); 
IF SA NE 'A' THEN DO; 
IF = 1 THEN CAP = 
IF Toe EQ Hos2 AND GD EO. 6RD2 AND MCC EQ MCC2 THEN DO; 
NUM = 
CAP = NUM; 
END; 
IF MOS NE MOS2 OR GD NE GRD2 OR MCC NE MCC2 THEN DO; 
CAP = NUM; 
END?” 
ELSE IF SA EQ ‘A! THEN DO; 
IF N= 1 THEN DO; 
IF Sar GE NUM THEN CAP = NUM: 
ewe SAMT LT NUM THEN CAP = SAMT; 
ELSE IF MOS EQ MOS2 AND GD EQ GRD2 AND MCC EQ MCC2 THEN DO; 
NUM = NUM2; 
IF SAMT GE NUM THEN CAP = NUM; 
IF SAMT LT NUM THEN CAP = SAMT; 


END; 
ELSE IF MOS NE MOS2 OR GD NE GRD2Z OR MCC NE MCC2 THEN DO; 
IF SAMT GE NUM THEN CAP 
IF SAMT LT NUM THEN CAP 
END; 
END; 


= e 
, 

— 

a 


SAMT ; 


a5 


DATA D15; 


SET Dl3; 
NUM2 = LAG NUM) - LAG(CAP); 
MOS2 = LAG(MOS 
GRD2 = LAG(GD); 
MCC2 = LAG(MCC); 


IF SA NE ‘A! THEN DO; 
IF N_ = 1 THEN CAP = NUM ; 
ie ee EQ nee AND GD EQ GRD2 AND MCC EQ MCC2 THEN DO; 


ENDS = NUM; 
IF MOS NE MOS2 OR GD NE GRD2 OR MCC NE MCC2 THEN DO; 
‘DL = NUM; 

EN 


END ; 
ELSE IF SA BQ vA? THEN DO; 
iy N_ = 2 THEN bc; 
IF SAMT GE NUM THEN CAP = NUM; 
aca SAMT LT NUM THEN CAP SAMT ; 
ere NUM2 MOS2 AND GD EQ GRD2Z AND MCC EQ MCC2 THENSEGE 
IF SAMT GE NUM THEN CAP = NUM; 
END: SAMT LT NUM THEN CAP = SAMT; 
ELSE IF MOS NE MOS2 OR GD NE GRD2 OR MCC NE MCC2 THEN DO; 
IF SAMT GE NUM THEN CAP = NUM; 
IF SAMT LT NUM THEN CAP = SAMT; 


éc 


END; 
END; 

DATA D14; 

SET DLS; 

NUM2 = LAG my) - LAG(CAP); 
MOS2 = LAG(MOS 
GRD2 = LAG(GD); 
MCC2 = LAG(MCC); 


IF SA NE VA! THEN DO; 
Pe LN. = Pere CAP = 
IF MOS EQ MOS2 AND GD EO GRD2 AND MCC EQ MCC2 THEN DO; 
NUM = NUMZ; 
CAP = NUM; 


END ; 
IF MOS NE MOS2 OR GD NE GRD2 OR MCC NE MCC2 THEN DO; 
CAP = NUM; 
END ; 
END ; 
ELSE IF Se POU a tne DO 
or Ne i THEN BO; 
IF SAMT GE NUM THEN CAP = NUM; 
Se SAMT LT NUM THEN CAP SAMT ; 
ELSE IF MOS EQ MOS2 AND GD EQ GRD2 AND MCC EQ MCC2 THEN DO; 
NUM = NUMZ; 
IF SAMT GE NUM THEN CAP = NUM; 
Soe SAMT LT NUM THEN CAP = SAMT; 
ELSE IF MOS NE MOSZ OR GD NE GRD2Z OR MCC NE MCC2 THEN DO; 
IF SAMT GE NUM THEN CAP = NUM; 
IF SAMT LT NUM THEN CAP = SAM 


e 
¢ 


END ; 
DATA DELEVEN; 
SET D14; 
NUM2 = LAG ort - LAG(CAP); 
MOS2 = LAG(MOS 
GRD2e= LAC (GD). 
MCC2 = LAG(MCC}S; 
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IF SA NE 'A!' THEN DO; 
LF oN= = 1 THEN CAP = NUM ; 
IF ee = NUH; AND GD EQ GRD2 AND MCC EQ MCC2 THEN DO; 


: a? = NUM ; 
IF Mos NE MOS2 OR GD NE GRD2 OR MCC NE MCC2 THEN DO; 
END; pe 


END > 
ELSE IF SA 2Om a. THEN Do; 
loa: see reN DO; 


TF SAMT GE NUM THEN CAP = NUM; 
aaa LT NUM THEN CAP = SAMT; 
BLSee ls MOemeemiOs2 saDeGpe2@ GrDZ AND MCC £O MCC2 THEN DO; 
NUM = NUMZ; 
LE SAMT GHeNUM THEN CAP = NUM; 
TIF SANT LT NUM THEN CaP = SAMT; 


END: 

Poop eeOssNe Oo2 Un GUENE GRDZ OR MCC NE MCC2 THEN DO; 
IF SAMT Ge NUM THEN CaP = NUM; 
IF SAMT LT NUM THEN CAP = SAMT; 


END; 
END; 
IF CAP = 0 THEN DELETE; 
OLDCAP = LAG(CAP); 
PROC SORT DATA = DELEVEN; 
BY EZNUM; 
DATA _NULL_; 


SET DELEVEN; 
feiss F THREE; 
Bemis, 1-4 Of 7-14 MCC 17-19 GD Z1l-22 
SA 24 SAMT 26-28 SPL 30 BOD 34-42 CAP 44-46 NUM 48-50; 


oF 


l. 
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APPENDIX N 
EZASREIA SAS 


PROGRAM TO ATYACH SUBSTITUTION LISTS TO FREE (MOVER) 
DEMANDS 


THIS PROGRAM ATTACHES THE £1 CARD INFORMATION AND COST _CODE 
INDICES TO THe FILE CONTAINING THE FREE ASR-EZ CARDSMINEORMa Toe 
THE FIRST TASK IS ATTACHING THE El CARD SUBSDRGUTIONe its toe oe 
DEMAND USING THE BOD'S WHICH WERE ATTACHED IN ASRE2A AS A MEANS OF 
LINKING THE DEMAND TO THE SUBSTITUTION LISTS. THiS yaasUe oe 
FILE WHICH HAS THE DEMAND BROKEN INTO SPECIFIC BILLETS (BY THE E2 
CARDS) WITH A SzT OF UP TO FIVE SUBSTITUTION CRITERIA ATTACHED TO 
EACH SPECIFIC DEMAND (FROM THE ELCARDS. ) 


THE 


APPROPRIATE COST CODE CENTER INDEX NEXT 10 BACH BEMAND. oo 
CORRESPONDS, ON THE DEMAND SiDE, TO THE COST CODE CZNT&R INDEASWaae 
WAS ATTACHED TO =ACH INDIVIDUAL IN FREE-srIA SAS, ON IRE SUPPER 
MOST OF THE FUNCTIONS AND TASKS PERFORMED IN THE PROGRAM Bee 
EAPLAINED AS THEY ARE PERFORMED, THUS THE BODY OF THR PROGRAae 
SELF-DOCUMENTING. 


KReKR RK KR KER KR RR KH RK KR KR KK RK KR KH K KR KR KR RK KH HA ee 


AMOS1 FIRST AMOS APPEARING ON THE El CARD (SUBSTITUTION) 
AMOS2 SECOND AMOS APPEARING ON THE El CARD (SUBSTITUTION) 
BOD BILGE Ore eaRebese re wo 


BODNUMA INDEX ON THE 20D FOUND IN THE El GARbs 
BODNUMB INDEX ON THE 80D FOUND IN THE E20GaRmsS 
CAPACITY TOTAL AUTHORIZED DEMAND AT THE CURRENT MCC 
COST erR COST CENTER CODE INEEx 


=1NUM INDEX ON THE El CARDS 

&2NUM INDEX ON THE E2 CARDS 

SITLVL FIT LEVEL DEFINED 3Y ORDER OF SUBSTITUTION PREFERENCE 
ae GRADE OR RANK (INTEGER) 

HEXP EXPERIENCE CODE ASSOCIATED WITH HIGH GRADE 

HGRD HIGHEST ACCEPTABLE GRADE FOR A SUBSTITUTION 

Loe DUTY RESTRICTION cone 

LEXP EXPERIENCE CODE ASSOCIATED WITH LOW GRADE 

LGRD LOWEST ACCEPTABLE GRADE FOR A SUBSTITUTION 

MAC MONITORED ACTIVITY CODE 

MCC CURRENT MONITORED COMMAND CODE (LOCATION) 

MCC2 NEXT MONITORED COMMAND CODE (LOCATION) 

NUM NUMBER OF MARINES FILLING THE DEMAND 3EING LOOKED AT 
OT OFFICER TYPE 

PMOS PRIMARY MOS APPEARING ON AN El CARD (SUBSTITUTION) 

SA SPLIT ADJUSTMENT - ADD (A), SUBTRACT (S), OR PROPORT (P) 
SAMT SPLIT AMOUNT NAME CONTAINING START & ENDING POINTS 
SEX SEX CODE RESTRICTION INDICATOR 

SPL STAFFING PRECEDENCE LEVEL 

Tl - T9 O/1 FLAGS FOR OFFICER CODE TYPES FOUND IN El CARDS 


mek kee eR RRR KR KR KR RK KK RK RR KR KR KR R KB KR Kee 


Pas 


ee oe oo » « 6 @¢ 9» & 5 * 8 © 2 © pp» 8 © p 8 pp 8 we Om a ee eS ere Oe eee meee ee i mens a ane es neeS eee one © eee eee 
e 
x 


x * %* %* PROGRAM NAME: E2ZASRE1A SAS ee - 


x 
RRR RRR RRR RR KR RR RR RR KR eR HR KR HR KR KR RR KR KR HK Kee 


x OR OVERVIEW AND PURPOSE xR 


NEXT TASK PERFORMED IN THIS PROGRAM IS THE PLACING Ole 


ARR DEFINITION OF TERMS ARK 


4 OE OO OO A ahhh eR 


a 


x x & *& *& FILE DEFINITION * * * * * * * * & 
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CMS FILEDEF DATAIN1 DISK WKE1 CRD A (RECFM F LRECL 80 BLOCK 80; 
CMS FILEDEF DATAIN2 DISK E2ASR MIX-MOVR A (RECFM F LRECL 80 BLOCK 0 > 
CMS FILEDEF DATAIN3 DISK MOVR-EP ARRAY A (RECFM F LRECL 80 BLOCK 80; 
CMS FILEDEF DATAIN4 DISK CCC=-MCC CONVERT Al; 
CMS FILEDEF DATAOUT1 DISK E1-INDEX CRD-A A (RECFM F LRECL 80 BLOCK 80; 
CMS FILEDEF DATAOUT2 DISK E2-INDEX CRD-A A (RECFM F LRECL 80 BLOCK 80; 
CMS FILEDEF DATAOUT3 DISK MOVR-DEM INPUT A (RECFM F LRECL 80 BLOCK 80: 
ee ae RTI KAEAEKKKAAKKAKRKARKKRKAKAAKAARK eee 
OPTIONS LINESIZE=80 ; 
/* 

Pieler On who OF etniGecAasJOs PUTS 2 INDICES ON THE El CARDS. 
THE FIRST INDEX SIMPLY IS A COUNT OF THE El CARDS AND CAN BE USED TO 
PUT THE CARDS BACK IN ORDER AFTER ANY COMBINATION OF OTHER SORTS ARE 
PERFORMED ON THE FILE. THE SECOND INDEX MARKS ALL THOSE El CARDS WHICH 
meave THE SAME BOD: THIS INDEX CAN BE USED TO RESTORE THE ORDER OF THE 
El ay BY BOD AFTER THE FILE HAS BEEN SORTED SOME OTHER WAY. 


Bele FILEI; 
INFILE DATAINI; 
miciGesooeso=4. FITLVL 23 LGRD S$1i5-16 LEXP $18 HGRD $20-21 HEXP $23 
BOS S2o-2o AMOS1 $39-42 AMOS2 $44-47 LDO $49 
peg teliacusd 2-79) Tl 530° 12 $31 T3 $3Z2 T4 $33.TS $34 16 $35 
hah $36 TS 20s 
IF LGRD = '02' THEN LGRD = 2; 


ELSE IF LORD = '03' THEN LGRD = 3; 
ELSE IF LGRD = 'WO' THEN LGRD = 1; 
ELSE IF LGRD = '04' THEN LGRD = 4; 
ELSE IF LGRD = '05' THEN LGRD = 5; 
IF HGRD = '02' THEN HGRD = 2; 

ELSE IF HGRD = '03' THEN HGRD = 3; 
ELSE IF HGRD = 'WO' THEN HGRD = 1; 
ELSE IF HGRD = '04' THEN HGRD = 4; 
ELSE IF HGRD = '05' THEN HGRD = 5; 
ELSE IF HGRD = ' ' THEN HGRD = LGRD; 
feet) = '*" THEN Tl = '1'; 

ELSE IF Tl = ' ' THEN Tl = 'O'; 

IF T2 = '*' THEN T2 = 'l'; 

ELSE IF T2 = ' ' THEN T2 = 'O'; 

IF T3 = '*' THEN T3 = '1'; 

ELSE IF T3 = ' ' THEN T3 = '0'; 
Deot4 = '*' THEN T4 = '1'; 

ELSE IF T4 = ' ' THEN T4 = 'O'; 

IF T5 = '*!' THEN TS = ‘1'; 

ELSE IF T5 = ' ' THEN T5 = 'O!'; 

OF 16 = '*' THEN T6 = ‘1'; 

ELSE IF T6 = THEN T6 = 'O'; 

IF T7 = ‘x! THEN T7 = '1'; 

ELSE IF T7 = '' ' THEN T7 = 'O'; 

IF T8 = '*! THEN T8 = '1'; 

ELSE IF T8 = '' ' THEN T8 = '0'; 
LENGTH OFFTYP $8; 

eesTyYP = T1 |! T2 || T3 7 Mal tool Te. 1| T7 || Te; 
IF LDO = '*' THEN LDO = '0!'; 

IF LDO = 'L' THEN LDO = '1'; 

IF LDO = 'U' THEN LDO = '2'; 

IF SEX = '*' THEN SEX = '0'; 

IF SEX = 'M' THEN SEX = '1'; 

IF SEX = 'F' THEN SEX = '2'; 
E1NUM+1; 


IF BOD NE LAG(BOD) THEN BODNUMA + 1; 

FILE DATAOUTI; 

PUT BOD $4-12 FITLVL 14 LGRD $16-17 LEXP $19 HGRD $21-22 HEXP aoe 
PMOS $26-29 OFFTYP $31-38 AMOS1 $40-43 AMOS2 $45-48 LDO $50 
SEX $52 ELNUM 54-57 BODNUMA 59-61 MAC $73-80 ; 


DATA FILE2; 
INFILE DATAINZ; 
INPUT BMOS $1-4 MCC $17-19 SPL 30 BOD $34-42 CAPACITY 45-46; 
If CAPACITY = . THEN DELETE; 


oo 


ECG Sie: 
IF BOD NE ‘LAG (BOD) THEN BODNUMB +1; 
FILE DATAOUTZ; 


eur oe 1-4 MCC $17-19 SPL 30 BOD $34-42 CAPACITY 45-46 


2NUM 60-63 BODNUMB 65-68; 
PROC SORT DATA=FILE1; 
BY BOD 


PROC SORT DATA=FILE2; 
BY BOD; 


DATA FILE3; 
MERGE FILEL FILEZ. 


BY BOD 
PROGU SORT DATA=FILE3;, 
Bat OS; 


* 
x 


DATA FILE4; 
INFILE DATAIN3; 
INPUT MOSNUM 1-3 PMOS $5-8; 
PROC SORT DATA = FILE4; 
Br EGS 


DAvAy eee. 
MERGE FILE3 FILE4; 


Eee 0s 
PROG. SORD DATA=FILES; 
See Ein; 
DATA SLES 
See ee oe 
PepGareciiy & 
NOW CLEAN UP 


1 LHe DES eee. 
THE NORMAL OUTPUT; 


. TREN BODNUMB 
- then SINUM = OF 
. THEN E2NUM = O; 

= . THEN MOSNUM =0; 

SPL » THEN SPL QO; 

= CAPACITY = . THEN CAPACITY = 

PuOS ' THEN PMOS = ! oly 


a 


0; 


THE 
WILL APPEAR IN THe yOUrEUT Ee ITEE. 


OR FF 


DATA DDI; 
INFILE DATAIN4 


0; 


; 


THESE 


NEAT, “ADD ON THE MOS NUMBERS (MOSNUM) ASSIGNED IN THE 
FILE MOVR-EP ARRAY. THIS WILL BE USED IN THE MATCHING ROUTINE. 


e 
, 


KANSAS CITY. 


INPUT @7 MCC SCHAR3. @1ll COSTCTR S$CHARZ2. @14 CCNAME SCHARIO. 


IF COSTCTR = a THEN DO; 
'AWARNING!*!; 
DD1; 


FILE6 ; 


END; 

PROC SORT DATA 
Be nce. 
PROC SORT DATA 
BY MCC; 

DATA DDZ; 
MERGE DD1 FILE6; 
BYeMGGE- 


IF COSTCTR ) | THENSGOsiCL kh — 
PROC SORT DATA DDz; 
Br ELNUM; 


DATA _NULL_; 
Sf s0bZ 
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tw! , 
é 


NEAT TASK IS TO ADD THE COST CODE CENTERS TO) THe ce WHICH ; 
COST CODE CENTERS WILL BE USED: 

IN THE MATCHING ROUTINE TO REFERENCE AN ARRAY CONTAINING THE COSTS ; 
ASSOCIATED WITH MOVING AN OFFICER OF SOME PARTICULAR RANK FROM HIS 
PRESENT MCC (WHICH WILL APPEAR ON THE USMC MOVRSUP OR NMOVSUP FILE) 
TO HIS PROPOSED FUTURE MCC ("FMCC" - WHICH IS PULLED FROM THIS FILE.); 
BECAUSE SOME OF THE MCC'S ON THE PRESENT COST CODE CENTER SEE 
ARE NOT YET PROPERLY MATCHED WITH A COST CODE CENTER, WE WILL 
ARBITRARILY ASSIGN THEM TO COST CODE CENTER NUMBER 22 = 


; 
; 
/ 
; 
, 
, 


FILE DATAOUT3; 
IF CAPACITY EQ . THEN DELETE; 
IF ELNUM EQ . THEN DELETE; 
IF E2NUM EQ . THEN DELETE; 
IF BODNUMA EQ . THEN DELETE; 
IF MOSNUM EQ . THEN DELETE; 
IF SPL EQ . THEN DELETE; 
IF FITLVL EQ . THEN DELETE; 
PUT LGRD $1-2 LEXP $3 HGRD $5-6 HEXP $7 
PMOS $9-12 OFFTYP $14-21 AMOS1 $23-26 AMOS2 $28-31 LDO $33 
SEX $35 MOSNUM 37-40 ZLNUM 42-45 BODNUMA 47-50 E2NUM 52-55 COSTCTR 
$59-60 MCC $62-64 SPL 66 FITLVL 68 CAPACITY 70-71 MAC 373-80; 
/* 
NOTES ON INDICES 
BODNUMA AND BODNUMB NEED NOT BE THE SAME. DURING THE ASSIGNMENT 
OF THE E2NUM'S, THE £2 CARDS WERE LEFT IN THE SAME ORDER THEY APPEAR IN 
THE DICTIONARY, AND SOMETIMES (THOUGH RARELY) THE SAME BOD MAY APPEAR IN 
THE DICTIONARY SEPARATED BY ANOTHER BOD. (EG. 3060LTCL AND 3060LTCL*) 
THE E1NUM'S, ON THE OTHER HAND, WILL ALWAYS BE IN SEQUENCE, SINCE THE 
FILE BG SORTED ON THE E1NUMS. 


e 
, 
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APPENDIX O 
EZASREIB SAS 


1. PROGRAMTO ATTACH SUBSTITUTION LISTS TO FIXED (NON- 
MOVER) DEMANDS 


Oe Se ee ie ge ee ee eee 


* 
ee PROGRAM NAME: E2ASRELA SAS x ke KX # ‘ 


RARRARR RR RRR RR KR RRR RK RR KR KR KR RK KR KR K KR KR KH Ree 


Aas os OVERVIEW AND: PURPOSE x a 

THIS PROGRAM ATTACHES THE Si CARD INFORMATION AND GOS Ieecops 
INDICES TO THE rILE CONTAINING THE Fixed ASR=EZ CARDS INFORMATIG Us 
IT 25 {DENTICAL TO E2ZASREIA, EXCEPT SOR THE Sits e eee eee ee 
THE FIRST TASK IS ATTACHING THE &1 CARD SUBSTITUTION Elsts oe 
DEMAND USING THE BOD'S WHICH WERE ATTACHED IN ASRE2A AS A MEANS OF 
LINKING THE DEMAND TO THE SUBSTITUTION LISiS. This Results 
FILE WHICH HAS THE DEMAND 3ROKEN INTO SPECIFIC BILLETS (BY Teeee. 
CARDS) WITH A SET OF UP TO FIVE SUBSTITUTION CRITERIA ATTACHED TO 
EACH SPECIFIC DEMAND. 

THE NEAT TASK PERFORMED IN THIS PROGRAM £5 THE PLAGINGyer eo 
APPROPRIATE COST CODE CENTER INDEX NEAT [O EACH SENAND eee. 
CORRESPONDS, ON THE DEMAND SIDE, TO THE COST CODE CENTER INDEX Wee 
WAS ATTACHED TO EACH INDIVIDUAL IN FREE-fIX SAS, ON THE SUPPLY SS teoe 

MOST OF THE SUNCTIONS AND TASKS PERFORMED IN THE PROGRAM ARE 
EXPLAINED &S THEY ARE PERFORMED, THUS THE BODY Ch THE PROGAaIe. 
SELF -DOGUMENTING: . 


RAR RRR KR RE RR RAR RAR RRR RRR KR RRR KR KH KR KR R KR KR KR Ree 


4 A A 


ea DEFINITION OF TERMS eta 


AMOSi FIRST AMOS APPEARING ON THE El CARD (SUBSTITUTION) 
AMOS2 SECOND AMOS APPEARING ON THE El CARD (SUBSTITUTION) 
BOD BIELET Onc Pear Soe sGht ellen 


BODNUMA INDEX ON THE BOD FOUND IN THE EL GARDS 
BODNUMB INDEX ON THE S8OD FOUND IN THE EZ CARDS 
CAPACITY TOTAL AUTHORIZED DEMAND "AT THE CURRENT MCC 
COSTCER COST, GENTER CODE SHIDEX 


ers INDEX ON THe #1 CARDS 

Beni INDE ON, THEee ee caRDs 

ELTEVE FIT LEVEL DEFINED BY ORDER OF SUBSTITUTION FPREPEReN eS 
GD GRADE OR RANK (INTEGER) 

Boor EXPERIENCE CODE ASSOCIATED WITH HIGH GRADE. 

HGRD HIGHEST ACCEPTABLE GRADE 37OR A SUBS TaRiETe) 

LDO DUTY RESURTeTTONGEODE 

LEXP EXPERIENCE CODE ASSOCIATED WITH LOW GRADE 

LGRD LOWEST ACCEPTABLE GRADE FOR A SUBSTITUTION 

MAC MONETORED SCT > JiTZ Cope 

MEG CURRENT MONITORED COMMAND CODE (LOCATION) 

mee2 NEXT MONITORED COMMAND CODE (LOCATION) 

NUM NUMBER OF MARINES FILLING THE DEMAND BEING LOOKED AT 
OT OFPICIR Tien 

EMOS PRIMARY MOS APPEARING ON AN El CARD (SUBSTITUTION) 

SA SPLIT ADJUSTMENT - ADD (A), SUBTRACT (S), OR PROPORT (P) 
SAMT SPLIT AMOUNT NAME CONTAINING START & ENDING POINTS 
SEX SEX. CODE RESTAUGTION TNE Ader 

Srl SLAPS ING, PRECEDENCE Jibs JRE 


ti =e Q/1 FLAGS FOR OFFICER CODE TYPES FOUND IN El CARDS 


mR ke RRR RR RR KR KR RR KR KR RRR RR RR RR KR KR KR KR KR RRR KR KR KK 
* * * * * * * FILE DEFINITION * * * * * * ® * * 
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+ AAA MHA EAH AM AHAB KBD RRR BARA DARA BR AAAAAAAAAAAAAAAAAAAAAA 


OO OR A OOO 


BEE DEE 
PELEDES 
SLED Ea 
PELeDes 
FILEDEF 
FILEDEF 


DATAIN1 DISK WKE1 CRD A (RECFM F LRECL 80 BLOCK 80; 
DATAINZ DISK EZASR MIX-NMOV A ae F LRECL 80 BLOCK 80; 
i 


DATAIN3 DISK NMOVR-EP ARRAY A 

DATAIN4 DISK CCC-MCC CONVERT A 
DATAOUT1 DISK E1-INDEX CRD-B A 
DATAOUT2 DISK EZ-INDEX CRD-B A 


CMS ATAOUT3 DISK NMOV-DEM INPUT A 
ee Nie LAHEERRERERRRRRARE RAD RRR ART RTI 


OPTIONS LINESIZE=80; 


HAVE THE SAME BOD. 


/* 


RECFM F LRECL 80 BLOCK 80; 


RECEN@n EChwee 50 Bleek 80> 
RECEM © LRECE oo SEOEK Bae 


RECFM F LRECL 80 BLOCK 8 
Ae en ees Cree Le 


Toe inoterOnbIon OF This saS JOB PUIS 2 INDICES ON THE El CARDS. 
WHE FIRST INDEX SIMPLY IS A COUNT OF THE El CARDS AND CAN BE USED TO 
PUT THE CARDS BACK IN ORDER AFTER ANY COMBINATION OF OTHER SORTS ARE 
BermeORMED ON THE FILE. THE 


SECOND INDEX MARKS ALL THOSE El CARDS WHICH 


Pot omeieene ean BE USED TO RESTORE THE ORDER OF THE 


El CARDS BY BOD AFTER THE FILE HAS BEEN SORTED SOME OTHER WAY. 
nx 


e 
f 


DATA FILE1I; 
INFILE DATAIN1; 
INPUT BOD $3-11 FITLVL 13 LGRD $15-16 LEXP $18 HGRD $20-21 HEXP $23 
p2oseS AMOS1 

pero eee roi 2-/Jell ss0nr2 ssl 13 $32 T4 $33 TS $34 Té $35 


PMOS 


T7 $36 18 337 : 
IF LGRD = '0O THEN LGRD 
EESE EF LGRD = '03' THEN 
ELSE IF LGRD = 'WO!' THEN 
ELSE IF LGRD = '04' THEN 
ELSE IF LGRD = '05' THEN 
IF HGRD = ‘'02' THEN HGRD 
ELSE IF HGRD = '03!' THEN 
ELSE IF HGRD = 'WO! THEN 
ELSE IF HGRD = '04!' THEN 
ELSE IF HGRD = '05' THEN 
ELSE IF HGRD = ' ! THEN 
IF Tl = '*' THEN Tl = '1 
Meoe LF Tl = ' ' THEN Tl 
IF T2 = '*' THEN T2 = '1l 
ELSE IF T2 = ' !' THEN T2 
Meets = '*' THEN T3 = '1 
Sess IF T3 = ' ' THEN T3 
IF T4 = '*' THEN T4 = '1l 
ELSE IF T4 = ' ' THEN T4 
IF T5 = '*' THEN T5 = '1 
Peele ItF T5 = ' ' THEN TS 
IF T6 = '*' THEN T6 = '1 
ELSE IF T6 = ' !' THEN T6 
IF T7 = '*' THEN T7 = '1 
EUSESLE TY ' ' THEN T7 
IF T8 = '*' THEN T8 = '1 
Bese [IF T8 = ' !' THEN T8 
LENGTH OFFTYP S8; 
OBerTYP = Ti || T2 || T3 
IF LDO = '*' THEN LDO = 
IF LDO = 'L' THEN LDO = 
IF LDO = 'U' THEN LDO = 
IF SEX = '*' THEN SEX = 
IF SEX = 'M' THEN SEX = 
IF SEX = 'F' THEN SEX = 
ELNUM+1; 


IF BOD NE LAG(BOD) THEN 

FILE DATAOUT1; 

PUT BOD $4-12 FITLVL 14 
PMOS $26-29 OFFTYP $31-38 AMOS1 $40-43 AMOS 2 845° 48 LDO $50 
SEX $52 E1NUM 54-57 BODNUMA 59-61 MAC $73- 


DATA FILEZ2; 
INFILE DATAIN2; 
INPUT BMOS $1-4 MCC $17-19 SPL 30 BOD $34-42 CAPACITY 45- 46; 
IF CAPACITY = . THEN DEL 


39-42 AMOS2 $44-47 LDO $49 


=e ~e We WO 


E* 

Q) 

wm 

oO 
Haun 


tm pew Ope Ww 


ol 

Q) 

wm 

oO 
Huu 
3 ™~ ™~ ™~ 


i 'Q'. 

|| 74 [| TS || T6 |] T7 J] TS; 
ui 

Zee: 
LOus 
ys 

Zee 
BODNUMA + 1; 


LGRD $16-17 LEXP $19 HGRD $21-22 HEXP $24 


Bae 
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EZNUM + 1; 
IF BOD NE LAG(BOD) THEN BODNUMB 
FILE DATAOUT2; 


+1; 


PUT BMOS 1-4 MCC $17-19 SPL 30 BOD $34-42 CAPACITY 45-46 


EZNUM 60-63 BODNUMB 65-68; 
oR DATA=FILE1; 


BOD; 
PROC SORT DATA=FILEZ; 
BY BOD; 
DATA FILE3; 
MERGE FILE1 FILEZ; 
BY BOD ; 
PROC SORT DATA=FILE3; 
Beales. 


* NEXT, ADD ON THE MOS NUMBERS (MO 
x FILE NMOVR-EP ARRAY. THIS WILL B 


DATA FILE4; 
INFILE DATAINS ; 
INPUT MOSNUM 1-3 PMOS $5-8; 
Ss pore = FILE4; 


DATARS ELLEES 
MERGE FILES FILE4; 
Boornes, 


TeENes: 
PROC SORT DATA=FILES; 
Eveca Nut: 
DATA FILE9; 
Sees luo. 
IF CAPACITY EQ . THEN DELETE; 


x NOW CLEAN UP THE NORMAL OUTPUT; 


SNUM) ASSIGNED IN THE ; 
E USED IN THE MATCHING ROUTINE. 


. 
4 


IF BODNUMB = . THEN BODNUMB = 0; 

IF ELNUM = . THEN E1NUM = 0; 

IF E2ZNUM = . THEN E2NUM = QO; 

IF MOSNUM = . THEN MOSNUM =0; 

Tf SFL =... THEN SEE OU: 

IF CAPACITY = . THEN CAPACITY = 0; 

Le PMOS = * * THENeENes = 0: 
TRE NEAT TASK, 0S [0 AbD etneE Sc 


WILL APPEAR IN THE OUTPUT FILE. 


TO HIS PROPOSED FUTURE MCC ("FMCC 
BECAUSE SOME OF  TnbaiGe so Ole ine 


AHA AAA SA 


DATA DDI; 
INFILE DATAING 


OST CODE CENTERS TO THE M€€'S Whteae 
THESE COST CODE CENTERS Weegee USED ; 


IN THE MATCHING ROUTINE TO REFERENCE AN ARRAY CONTAINING THE COSTS 
ASSOCIATED WITH MOVING AN OFFICER OF SOME PARTICULAR RANK FROM HIS 
PRESENT MCC (WHICH WILL APPEAR ON THE USMC MOVRSUP OR NMOVSUP FILE) 


' - WHICH IS PULLED FROM THIS FILE @) 
PRESENT COST CODE CENTEX Ga-u 


ARE NOT YET PROPERLY MATCHED WITH A COST CODE CENTER, WE WILL 
ARBITRARILY ASSIGN THEM TO COST CODE CENTER NUMBER 29 - 


KANSAS CITY. 


INPUT @7 MCC i eee SCHAR2. @14 CCNAME S$CHAR10.; 


ITE COSTCTR = “oG° : 
COSTCTR =2'7239- 
CCNAME = ‘AWARNING!*! 
END; 
PROC SORT DATA = DD1; 
Bence. 
PROC SORT DATA = FILE6; 
BY 16C- 
DATA DD2; 
MERGE DD1 FILE6; 
BY ec - 
IF COSTCTR = ' ' THEN COSTCTR = 
PROC SORT DATA = DD2Z; 
BY E1NUM; 
DATA _NULL_; 
SET DD 


xx! , 
4 
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FILE DATAOUT3; 

IF CAPACITY EQ . THEN DELETE; 

IF E1NUM EQ . THEN DELETE; 

IF E2NUM EO . THEN DELETE; 

IF BODNUMA EQ . THEN DELETE; 

IF MOSNUM EQ . THEN DELETE; 

IF SPL EQ . THEN DELETE; 

IF FITLVL EQ . THEN DELETE; 

PUT LGRD $1-2 LEXP $3 HGRD $5-6 HEXP $7 
PMOS $9-12 OFFTYP $14-21 AMOS1 $23-26 AMOS2 $28-31 LDO $33 
SEX $35 MOSNUM 37-40 ZINUM 42-45 BODNUMA 47-50 E2NUM 52-55 COSTCTR 
359-60 MCC $62-54 SPL 66 FITLVL 68 CAPACITY 70-71 MAC $73-80; 
* 


NOTES ON INDICES 
BODNUMA AND BODNUMB NEED NOT 3E& THE SAME. DURING THE ASSIGNMENT 

Meeihe 2=2NUM'S, THE EZ CARDS WERE LEFT IN THE SAME ORDER THEY APPEAR IN 
THE DICTIONARY, AND SOMETIMES (THOUGH RARELY) THE SAME BOD MAY APPEAR IN 
THE DICTIONARY SEPARATED BY ANOTHER 80D. (EG. 3060LTCL AND 3060LTCL*) 
fee SINUM®S, ON THE OTHER HAND, WILL ALWAYS BE IN SEQUENCE, SINCE THE 
FILE — ONSTHE ELNUMS: 

x 


s 
, 
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APPENDIX P 
MATCH-AL FORTRAN 


PROGRAM TO MATCH PEOPLE TO JOBS 


* 
ee PROGRAM NAME: MATCH-AL FORTRAN x oe 7 
RR RR RRR KR KR RR KR KR RR KR KR KR KR RR KK KR KR RK KR KR ORR 


Ae OVERVIEW AND@- URPOss A 


IN THIS PROGRAM THE INVENTORY IS MATCHED TO THE DEMAND DEFINED 
BY THE ADJUSTED ASR. IN ORDER TO PERFORM THE MATCH, NUMEROUS) eae 
WILL BE USED. THE FILE E1LE2-MRG CRD CONTAINS = SLL Of eee eee 
ASR INFORMATION ROLLED UP IN aA CONVOLUTED BUT COMPACT FORM. THE 
INFORMATION ON THE INVENTORY OF THE MARINE CORPS (IE. THE SUPPLY OF 
OFFICERS) WHICH IS NECESSARY FOR THE MATCHING PROCESS IS sneUl gee 
THE FILE WORKING INVENTRY. BUT BECAUSE ONLY ABOUT A THIRD OF THE 
MARINE CORPS IS ELIGISLE TO MOVE IN ANY YEAR (WHICH IS THE PERIOD 
CONSIDERED IN THE PRESENT ALLOCATION MODEL), THE MATCHING Wille 
PERFORMED IN TWO PARTS. IN THE FIRST PART, ALL LEGAL Pater oeaee 
THOSE MARINES WHO WILL 3E MOVING DURING THE NEXT TIME PERIOD (OR 
WINDOW) ARE MADE. N THIS PART OF THE >ROGRAM, ALL INDIVIDUALS ARE * 
MATCHED TO SUBSTITUTI ON CRITERIA THEY CAN FILL. THESE PEOPLE=[0- Gea 
TYPE MATCHES ARE THEN MATCHED (TO SPECI r IC epi shibae THE SECOHE 
PART OF THE PROGRAM,MATCHES ALL "NON-MOVERS (FIXED PERSONNEL) TO 
OTHER JOBS WITHIN THEIR MCC WHICH THEY MIGHT SE ABLE TO FIle eee 
BETTER "FIT" ( DEFINED BY THE £1 CARDS.) THE ARCS GENERATED WITHIN 
UNITS BY THIS OTHER PROGRAM ARE THEN COMBINED WITH THE MOVERS' ARCS) 
AND ARE ALL FORMATTED FOR INPUT INTO GNET. DIVIDING THE MATCHING 
PROCESS INTO THESE TWO PHASES AND LIMITING THE ARCS fCRVhO as ee 
JOBS WHICH ARE NOT OCCUPIED BY NON-MOVERS REDUCES THE NUMBER OF SAnies 
WHICH MUST BE GENERATED. 


THIS PROGRAM IS BROKEN DOWN INTO SEVERAL STAGES. FIRST, A COST 
MATRIX IS READ INTO MEMORY , BASED ON DISTANCE PLUS AN ARBITRARY 
CONSTANT(2000), AND INDEXED ON COST CENTER CODES. NEXT THE ENTIRE 
POPULATION OF MOVERS IS READ INTO MEMORY, ALREADY SORTED BY MOS AND 
GRADE. ALSO READ IN [5 A POINTER ARRAY WHICH WILL BE USED SO 5ScEe® 
UP THE MATCHING PROCESS BY DIRECTING THE SEARCH f0OR THOSE Whe were 
THE REQUIREMENT FOR A PARTICULAR SUBSTITUTION CRITERIA TO These 
MOS AND GRADE INVOLVED. 

NEXT, EACH E1E2-MRG CARD DEFONING THE DEMAND IS READ ITN oe Ge 
INDIVIDUAL IN THE INVENTORY WHO MATCHES THE ACCEPTABLE 
SUBSTITUTION CRITERIA FOR THAT DEMAND iS FOUND BY SESRCHING THRGUGa 
THE INVENTORY USING THE POINTER ARRAYS. 


A A Ok ko A A 


AO AO OO a 


THE ENTIRE PROCESS IS THEN REPEATED FOR NON-MOVERS. * 
THE RESULTING COMBINED FILE CONTAINS ALL PEOPLE TO BILLET a 
MATCHES WHICH WILL BE USED TO GENERATE THE NETWORK ONCE THEY ARE > 
SORTED IN THE NEAT PROGRAM PesiGsOR? sse. * 
FACH STEP OF THE 2ROCESS 2S DOCUMENTED IN MORE DETAIL IN THE x 
PROGRAM SELOW. i 
km ke KR wR KR KR RRR RK KR KR KR HR RK KR KR KK K KR KR KR KK AX KK 
* 
ARK PILE DEFINITIGNS ARK A 
FILEDEF FILE IDENTIFICATION PURE Ore x 
1 ALPHA DATA FILE WITH ALPHA VALUE (FROM USER )* 

8 USMC MOVRSUP CONTAINS INVENTORY OF MOVERS 
10 USMC NONMSUP CONTAINS INVENTORY OF NON-MOVERS i 
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MeO OO OO OO OO OOOO OOO 


MOVR-EP ARRAY 
NMOVR-EP ARRAY 
MOVR-DEM INPUT 


DEBUG OUTPUT 


EASY=MOS MATCH 
HARD-MOS MATCH 
NON-MOS MATCH 
MATCH OUTPUT 

NMOV-DEM INPUT 


COsieern olor -Mar 
LESL-OR COST =-OUL 


SUP-SIZE DATA 


KKK DES iigt LON OF TERMS 


POINTER ARRAY TO MOVER MOS/GRADE 
POINTER ARRAY FOR NON-MOVERS 


CONTAINS 


COMBINED E1=EZ=ASR INFO 


FOR MOVERS 


PROVIDES 
STAGE OF 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 
CONTAINS 


INFORMATION ON EACH 

THE PROGRAM TO THE USER 
MOS/GRADE El CARDS 

OCC FIELD/AMOS El CARDS 
LORDECE Rw Ere” ELOCARDS 
PEGEER-TO=J05 MATCHES 
COME im iE Pmei-22-ASRk INFO 


FOR NON-MOVERS 


MATRIX OF DIST BETWEEN COST CTRS 
ENSURES PROPER READING OF FILEZ8 


FILE WITH TOTAL NO. IN INVENTORY 


mee SK RR ROARK Ree A RK RRR KR KR RK KKK KR KR KK Ke 


ARK 


COEFFICIENT USED TO DETERMINE THE RELATIVE WEIGHTS OF 
tie ot han Pes eeOs SOBJECTIVES 
FIRST AMOS ASSOCIATED WITH THE SUBSTITUTION CRITERIA 
SECOND AMOS ASSOCIATED WITH THE SUBSTITUTION CRITERIA 
POINTER INDEX TO SORTED INVENTORY; WHERE TO BEGIN SEARCH 
INDEX ON THE SPECIFIC DEMAND ATTACHED TO A BOD 

Tee ON THE SODVASSOCIATED WITH A SUBSTITUTION 
CAPACITY) AT A PARTICULAR DEMAND 

PUCC AND EMEC USED AS A BASIC PCS COST 
COST CENTER CODE OF A DEMAND 
THE El INDEX FOR A PARTICULAR E1-E2-ASR CARD 


THE DEMAND (FLOW 
DISTANCE BETWEEN 


THE E2 INDEX FOR A PARTICULAR MATCH 


MARKS THE END OF A GROUP OF E1-E2-ASR CARDS BEING INPUT 
SORTED INVENTORY; WHERE TO END SEARCH 

EAPERIENCE EXCEPTION = TELLS IF MAY IGNORE El EXP CODE 

FIT LEVEL FOR A PARTICULAR SUBSTITUTION 

FUTURE MCC - MCC ASSOCIATED WITH THE DEMAND 


POINTER INDEX TO 


EXPERIENCE FLAF F 


OR HGRD 


HIGHEST ACCEPTABLE GRADE FOR A PARTICULAR SUBSTITUTION 
FIRST AMOS OF THE INDIVIDUAL BEING CONSIDERED 

SECOND AMOS OF THE INDIVIDUAL BEING CONSIDERED 

TRE COST ATTACHED TO A PARTICULAR MATCH 

COST CODE CENTER OF THE INDIVIDUAL BEING CONSIDERED 
INDEX FOR EACH INDIVIDUAL WITHIN THE INVENTORY 
EXPERIENCE CODE OF THE INDIVIDUAL BEING CONSIDERED 
GRADE OF THE INDIVIDUAL BEING CONSIDERED FOR A MATCH 
DUTY RESTRICTION OF THE INDIVIDUAL BEING CONSIDERED 
PMOS OF THE INDIVIDUAL BEING CONSIDERED 

INDEX OF INDIVIDUAL'S PMOS 
SEX OF THE INDIVIDUAL BEING CONSIDERED 


LAST CHARACTER [5S 


HEC 


DUTY RESTRICTION CODE FOR THE SUBSTITUTION CRITERIA 


BAPERIGNCE FLAG FE 


OR LGRD 


LOWEST ACCEPTABLE GRADE FOR A PARTICULAR SUBSTITUTION 
INDICATES THE LST BOD THE INDIVIDUAL WAS MATCHED TO - 
MARKER FOR BEGINNING OF EACH SET OF El CARDS IN A GROUP 
MARKER FOR BEGINNING OF EACH SET OF E2 CARDS IN A GROUP 
TEMPORARY VARIABLE TO STORE PMOS IN MATCHING ROUTINE 
THE MOS INDEX NUMBER FOR A PARTICULAR PMOS 

TELLS THE NUMBER OF FIT LEVELS IN A GIVEN BOD 

TEELCSeihe NUMBER OF DIFFERENT MCC’S WITH A GIVEN BOD 


OFFICER TYPE 


PRESENT MCC OF THE INDIVIDUAL BEING CONSIDERED 
PRIMARY MOS ASSOCIATED WITH THE SUBSTITUTION CRITERIA 
SEX CODE APPEARING WITH THE SUBSTITUTION CRITERIA 
STAFFING PRECEDENCE LEVEL FOR A BILLET 

THE TOTAL NUMBER OF PEOPLE ON THE INVENTORY LIST 
TEMPORARY VARIABLE TO HOLD THE VALUE OF AMOS1 
TEMPORARY VARIABLE TO HOLD THE VALUE OF AMOS2 
TEMPORARY VARIABLE TO HOLD THE VALUE OF BODNUM 
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ee OR OO OO OO OR OF Ob OF OF OF OF OR OO OOO OO A Rah aa 


IMOSNO TEMPORARY VARIABLE TO HOLD THE VALUE OF MOSNUM 
LORIV © TEMPORARY VARIABLE TO HOLD THE VALUE OF OFFTYP 
OTe ah TOTAL NUMBER OF El CARDS READ IN EACH GROUP OF 
aS NESS (G5 0)s: 

TPMOS TEMPORARY VARIABLE TO HOLD THE VALUE OF PMOS 
Oe h TEMPORARY VARIABLE TO HOLD THE VALUE OF SEX 
Tse TEMPORARY VARIABLE TO HOLD THE VALUE OF SPL 


KEKAAKKRKRKRRKRKARRKKERKRKEKRKKRRRRAERARAKRKKRRKRKRKKRKAKRREKRRKRERKRERRRRKRRRRKREKREERKEKERR 


o.oo DECLARE, DIMENSION, AND INITIALIZE x ROR KK K hee 
CHARACTER*1 LAST1M, LEXP (500), HEXP (500) , TLEXP , THEXP 
CHARACTER*2 EXPEXC 
CHARACTER*4 FMCC(500) ,PMOS(500) ,AMOS1 (500) 


TCAP TEMPORARY VARIABLE TO HOLD THE VALUE OF CAPCTY * 
TCCER TEMPORARY VARIABLE TO HOLD THE VALUE OF CSTCTR * 
TELNUM TEMPORARY VARIABLE TO HOLD THE VALUE OF E1NUM * 
TE2ZNUM TEMPORARY VARIABLE TO HOLD THE VALUE OF EZNUM * 
TFEPEY TEMPORARY VARIABLE TO HOLD THE VALUE OF FITLVL * 
TEMGE TEMPORARY VARIABLE TO HOLD THE VALUE OF FMCC * 
Ee TEMPORARY VARIABLE TO HOLD THE VALUE OF HEXP * 
THGRD TEMPORARY VARIABLE TO HOLD THE VALUE OF HGRD * 
TKOUNT COUNTER OF TOTAL NUMBER OF E1-E2-ASR GROUPS * 
TLDO TEMPORARY VARIABLE TO HOLD THE VALUE OF LDO * 
TEMPORARY VARIABLE TO HOLD THE VALUE OF LEXP * 

TLGRD TEMPORARY VARIABLE TO HOLD THE VALUE OF LGRD 
x 

x 

x 

* 

* 

* 

x 


AAA KAA A AAA ARAB AHEAD 
J 
ea 
S 
td 


CAMOS2(500) , TPMOS, TAMOS1, TAMOSZ, TFMCC, MGs? {os (20000), IAMOS1 (20000) 


ey IAMOS2(20000), PMCC 20000) 

CHARACTER*8 OFFTYP ( O00) TORT Ze 

INTEGER*2 IEXP(20000), CSTCTR(500), a CRON eRorise , Feel 

INTEGER*2 MARKR1 ,MARKR2,NUMFIT LGRD (500) HGRD(500) ,TLGRD,THGRD, 
SEC GON meEE SEx( 200), PISERe ISEX(20000), LDO(500), TLDO, ILDO(20000), 
CSPL( 500) -F2TLVE( S90 

INTEGER*4 ENDGRP ,NUMMCC,E1NUM(500), OS oa LSTBOD( 2000078 
CBODNUM(500), BODE2 (500), E2NUM(500), CAPCTY (50 0) 
C,TELNUM,TE2NUM,TSPL, TRITLV, aa TOE 
Glee, TBODA, TKOUNT , IMOSNO (2000 0) 

INTEGER IDNUM(20000), Bere 5),ENDSCH(250,5), COST(6376a0 
G7 LE0s! psUrotzZ 


REAL ALPHA 
DIMENSION BAQ(2,9),MILES(8,8);, 
x CALL SETIME 
RARRRKRK READ COST CENTER PCS COST ARRAY INTO RESIDENT MEMORY ***x*x 
pO 12 I = 1,63 
pO 12 J = 2,83 
Soe p21) COST (lsd) 
COST(I,J) = COST(I,J) + 2000 
IF (COST(I,J) .LE. 2075) acOsT (tr, J) = 


pO 13 J. oe 
WRITE (is. 21). COST Cig 
13 CONTINUE 
LZ. FORMAT (14) 


AARRRRRARARK READ MOVER INVENTORY INTO RESIDENT MEMORY = **% xxx xox 
DO 5 I = 1,20000 
READ(08,102,END=9991) IMOS(I),IGRD(I),IAMOS1(I),IAMOS2(TI), 
CPMCC(T), TEXP (1); ,ISEX(I), ILDO(1I),IDNUM(I) , IMOSNO(TI), ,TCOSTC TY 


LOZ FORMAT Ts 4,2X,11,1X,A4,1X,A4,1X,A3,1X%,11,1%,11,1%,21) 3%, oe 
Cao) 
LSTROD(T) = 
Fiche ‘OD 1000) ace 
WRITE O25. 


WRITE (02,102) ) NMOS (I IGRD( ,IAMOS1(I),IAMOS2(I), 
cemcc(Z), ee a. $200) 8 , ALDO ( ) ,IDNUM(I) , IMOSNO(I) , ICOSTC(I) 


WRITE(OZ72) “Koa 
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WRITE(02,102) IMOS(I),IGRD(I),IAMOS1(I),IAMOS2(I), 
cEMCC(T), /IEXP(I),ISEX(1),ILDO(I), IDNUM(I) , IMOSNO(T) , ICOSTC(T) 


K=K+t1 


5 CONTINUE 

e223) CONTINUE 
WAT Tee ,*) 'THERE ARE',K,'PEOPLE IN THE MOVER INVENTORY FILE.' 
UPSIZ = 


RERARAARAKARKKE READ EP ARRAY INTO RESIDENT MEMORY RAEKRAARRKKRKKRAKRX 

NEXT, READ IN THE ENTRY POINT ARRAY DEVELOPED FOR THE 
MOVERS, CALLED MOVR-EP ARRAY 

IT IS IMPORTANT TO REMEMBER THAT THIS ARRAY REFERS TO THE PMOS'S 
OF THE MARINES ON THE INVENTORY, AND NOT THE BMOS'S ON THE £1 CARDS. 
MeN SeOUENILY, IF & BMOS APPEARS ON THE EL] CARDS WHICH IS NOT 
POSSESSED BY ANY MARINES, THIS PROGRAM WILL HAVE PROBLEMS MATCHING, 
Pip THE INDIGZS WILL PROBABLY GET HOPELESSLY MESSED UP IN THE MATCH 
ROUTINE. THIS IN FACT HAPPENED IN THE FIRST RUN OF THIS PROGRAM. 
TWO MOS'S, 7580 AND 7584, WHICH APPEARED IN THE El CARDS AS 3MOS'S, 
DID NOT APPEAR AS PMOS'S ANYWHERE IN THE INVENTORY, AND HENCE, DID 
NOT HAVE PROPER INDICES FOR THE SEARCH. (EG. SEE LINE 311 WHERE THE 
mipesx VL" IS SET.) THIS DOES NOT RESULT IN ANY ERROR STATEMENT, 
Peieeee SES UNCERTAIN RESULTS. IN THE PROTOTYPE, THE E1 CARDS WITH THE 
OFFENDING BMOS'S WERE REMOVED. 

po 6 £ = 1,250 
DO 6 J = Lae 
READ (09, 103, ZND=9992) BEGSCH(I,J), ENDSCH(I, Je 
EOS FORMAT (12 (T5,1X,25) 
fone xX XX KK BEGEN LEOL <ERINITOUT 
WRITE(02,*) I,J,'BEGSCH(I,J)=',BEGSCH(I,J), 'ENDSCH(I,J)=' 

CENDSCH(Z,J 

< * END TEST PRINTOUT 
CONTINUE 


6 
$992 CONTINUE 


AAA AAA AAAAARAA SD 


zx *& 


x READ IN EACH LINE FROM THE FILE MOVR- ~DEM INPUT FOR MATCHING - 
. INITIALIZE 


rr - = 0 


oe 


ZO] FORMAT (iscatr fe aie 


TKOUNT = 
edL I = Ii+l 
READ(01,101,=ND=9993) UGRD 
FECA STEN coeoeeT 
SSODiUIien)  S2NUMi 2 
IF oct EQ. 
nk eee: I ; -NE. BODNUM 
- oLORE THE SIRST VARIABLE IN THE NEAT BOD SeT IN TEMPORARY VALUES 
TLGRD = ee z 
Ls 


HGRD(T 
Broa 


lar | 

eL; 

Q 

GHG! 
ou iu 


PMOS (I 
OFFTYP 
AMOS 1 
AMOS 2 

TLDO = soe 

TSEX = SEX 

TMOSNO = HOSAUM (7) 

I 
) 





: 
O 
Wy 
— 
a 


(I) 
i 


_—_—N 


TELNUM = EINUM 
TBODA = BODNUM(I 
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TCCT Ras aa 
TEZNUM = E2NUM(I 
TFMCC = FMCC(T) 
TSPL = SPL(I) 
TFITLY = FIrLVvid 
TCAP = CAPCTY(I) 

ENDIF 


xe RRR XR BEC iNet ester ne eum 
WRITE (02%) | RARRRAKRAR RAR RAR KKK ARR KARR KARR KKK ARR KK IRERARR | 
WETTE (OS, 3 'GROUP ',TKOUNT,' HAS ' ,ENDGRPW @e]nl oe 

AOR ROK SSN Thome ee POUL 


EACH OF THE GROUPS WE GAVE JUST READ IN CONTAIN ALL OF THE El=Gaae 
AND ASR INFORMATION FOR THE MOVERS. EACH GROUP CONTAINS ALL OF THE 
E1-CARD DATA AND THE MCC AND DEMAND (OR CAPACITY) FOR EACH DEMAND 
ASSOCIATED WITH THAT El INFORMATION. BECAUSE WE HAVE COMPRESSED 50 
MUCH INFORMATION INTO A SINGLE FILE, WE MUST NOW DETERMINE TWO THINGS 
ABOUT EACH GROUP. FIRST, WE MUST FIND THE NUMBER Ore scUes toe 
LEVELS FOR THE DEMANDS Of THIS TYPE (ALSO GBLLED Tbe BOD) pan 
ADDITIONALLZ, WE MUST ASCERTAIN THE NUMBER OF DEMANDS IN THE GROUP 
WHICH CORRESPOND TO THE BOD SET. WE WILL USE THESE "thm oom 
INFORMATION aS INDICES TO HELP US PERFORM THE MATCHING G5 -2GP ies 
BILLETS WITH SOME SEMBLANCE OF EFFICIENCY. THE NUMBER OF SUBSTI TU Ries 
LEVELS, CALLED "NUMFIT", TELLS US WHEN TO BEGIN SEARCHING THROUGHEa 
NEXT BOD. THE NUMBER OF DEMAND LOCATIONS, WHICH IS EQUIVALENT TO THE 
NUMBER OF MCC'S, IS CALLED "NUMMCC". THIS INDEX TELLS US SGWiee 
(AND WHICH) MCC'S WILL 3E MATCHED TO THE VALID PEOPLE-SUBSTITUTZon 
MATCHES WE FIND BY MATCHING THE SOD SETS DO THE SeNVeiitea es 


MARKR1 = 0 
MARKR2Z = 0 
Le (ENDGRP -=Q. 1) t3en 
NUMF I tT = 
NUMMCC l 
ee ae * (ENDGRE Clay eel 
ZNDGRP 


OOF iueer = .£Q. FITLVL(I-1)) .AND. (MARKR1 .5O350) > maaae 


4 


HAA AAA AA AAA DADA OD 


ti 


MARKR 1 
ELSE TF ( (FITLVL(1) .GT, FITLVL(I=-1) AND 
CTHEN 
NUMFIT = I 
ENDIF 
IF ((FMCC(I) .—Q. FMCC(I-1)) .AND. (MARKR2 .EQ. 0)) THEN 
NUMMCC = I-1 


.=Q. ENDGRP)) 


MARKR2 = 1 
ELSE IF ((FMCC(I) .NE. FMCC(I-1)) .AND. (I .EQ. SENDGRP ei cae 
NUMMCG™=" 1 


ENDIF 
10 CONTINUE 
ENDI¢ 


x AT THIS POINT, WE SHOULD SAVE THE NUMBER OF FIT LEVELS AND SDE eS 
* WITHIN THE GROUP. AS A CHECK, WE WILL PRINT OUT THESReSULeee 
* WE WILL INCLUDE A RUNNING TOTAL OF THE TOTAL NUMBER OF E1-CARDS 
x LINCLUDED IN THE FILE, AND CALL THIS VARGASBLE Beret 
TOLFIT = TOLkia gg NUE 


geeiel ei tS Bl bs BEGIN TEST PRINTOUr 
ae B(02, oy) 'THE NUMBER OF FIT LEVELS IN GROUP "> TKOUNT oe 
CNUME IT 
WRITE(9 2a *)} 'SO FAR THERE HAVE BEEN A TOTAL OF’ ,TOLTRIT> =] Gakeoms 
WRITs Oz, ~) 'THE NUMBER OF MCC DEMANDS IN GROUP 9 Th@U]) yee 
CNOMMEE, 
kok x RR RRR END TEST PRINTOUT 


KREEKKAKRKAKRRKRKKKKKKKKARAKRRRKARRRKRRERRRRRKRRKAKARRRRERRRARRKKRAAARRKRAKRKRRRKRRERRRERAKK 


a BEGIN ACTUAL MATCHING PROCESS FOR MOVERS . 
RR RR KR KKK RK KR KK KK RRR KR RK RRR KKK KK KK KKK 
x x * * 


* * * * 
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x FIRST, GENERATE SOME VARIABLES TO BE USED IN THE MATCHING PROCESS. 
DO 20 J = 1,NUMFIT 
MOS = PMOS(J) 
LASTIM = MOS(4:4) 
EXPEXC = LEXP (J) of HEXP(5) 
x WRITE(02,*) at 


* NOW COMES THE A -. or oath Peeceenn) AS ff IS MATCHED TO THE 
* DEMAND. EACH CARD IS FIRST SEPARATED ACCORDING TO THE NATURE OF THE 
Bertos. (HERE ARE THREE MAJOR MOS CATEGORIES: PURELY NUMERIC, PARTIALLY 
BORN COMPLETELY CHARACTER (THAT IS, WITH SOME OR ALL '"*"''S), AND 
BeMtssiING (THAT IS, NOTHING IN THE PMOS POSITION - MATCHES ARE MADE ON 
* THE OFFTYP RATHER THAN THE PMOS. ) 


Beets *-X4* CHECK IP AUNON-MOS CARD (IE. MISSING PMOS)  **x*xkx4xxx> 
IF (PMOS(J) .EO. 0') THEN 
* NOTE:THE NEXT THREE LINES MAY BE REMOVED - OUTPUT TO NON-MOS FILE 
WRITE(14,101) LGRD(J),LEXP(J) ,HGRD(J) ,HEXP(J), PMOS (J), OFFTYP(J), 
caMosi (J). ANOS2 (J), 'LDO(J) ,SEX(J) ,MOSNUM(J) ,EINUM(J) ,BODNUM(J), 
CBODE2(J),E2NUM(J),FMCC(J$,SPL(J$,FITLVL(J) , CAPCTY(J) 


KRREKKRKKREREREKR CHECK IF A CHARACTER MOS CARD KKKKKKRERRRREKR 
ELSE IF (LASTIM .EO. '*') THEN 
* NOTE: THE NEXT THREE LINES MAY BE REMOVED - OUTPUT TO HARD-MOS FILE 
WRITE (04,101) LGRD (J) , LEXP(J),HGRD(J), HEXP (J), PMOS(J) ,OFFTYP(J), 
* e051{ 1). pee , ,LDO(J) ,SEX(J) ,MOSNUM(J) , EINUM(J) , BODNUM(J), 
* CBODE2(J),E2NUM(J),FMCC(J),SPL(J}, FITLVL(J) , CAPCTY (J) 


RKEKKARAKKAKKKARKR CHECK IF PURELY NUMERIC MOS CARD KARKAAKKKAKKKKKK 
ELSE IF ((PMOS(J) .NE. '  0O') .AND. (LASTIM .NE. '*')) THEN 
NOTE: THE NEXT THREE LINES MAY BE REMOVED - OUTPUT TO EASY FILE 
WRITE (03 101) LGRD(J) , LEXP (J) ,HGRD (J) HEXP (J /PMOS(J) ,OFFTYP(J), 
Banos (4 . aMose (J , LDO(J) ,SEX(J) ,MOSNUM(J) ,E J),BODNUM(J), 
CBODE2(J),E2NUM(J),FMCC(J),SPL(J),FITLVL(J$, CAPC Y(J) 


NOW THE El CARDS HAVE BEEN SEPARATED INTO THOSE WITH PURELY NUMERIC 
NOs 5, [HOSE WHICH DIFFERENTIATE BY OCC FIELD OR AMOS, AND THOSE WITH 
Oily AN OFFTYP. IN THIS SEGMENT OF THE PROGRAM, THE PURELY NUMERIC 
MOS'S ARE MATCHED. 

THE ONLY TIME THE EXPERIENCE CODES WILL COME INTO PLAY IS WHEN 
THERE IS A DEMAND FOR EXPERIENCE IN THE LOWER GRADE. THIS APPEARS AS 
AN EXPERIENCE EXCEPTION CODE (EXPEXC) OF 'E ' OR 'EE'. 

WE WILL FIRST EXAMINE THE OTHER, MORE COMMON CASES 


xkKKK LOCALIZE THE EXACT CATEGORY WITHIN THE NUMERIC MOS CARDS 
ARK AND WRITE ALL MATCHES TO A FILE 
RAREKKKKKRRRKERKKRKKAKKKKRRKEAKRRARKKRRKAKRRRRRARRRAEERRRERAEKKKRRRERKRAERRRAKERRERAE 
IF _((AMOS1(J) .EQ. '***4') AND. _(AMOS2(J) EQ. repels), THEN 
TF ((EXPEXC NE. 'E ') “.AND. (EXPEXC .NE. 'EE') 
F (LDO(J) .EQ. sd 
IF af SEX(Z) 


C HGRD(J 
IF (L .EQ. 2} GOTO 35 
IF (LSTBOD(L) .NE. BODNUM(J)) THEN 
LSTBOD(L) = BODNUM(J) 
DO 35 K = 1,NUMM 
ICOST = COST rcostc(t) ;CSTCTR(K)) 
WRITE(10,1004) IDNUM(L},PMCC(L) ,FMCC(K) ,SPL(R), 
C eETuvE (3), /CAPCTY(K), FeoSe E2NUM(K) 
1004 FORMAT(I5,1X, AB, 1X ,A3 1X, prea (oes 1X, 15,1X,14) 


ENDIF 
30 CONTINUE 
ELSE IF (SEX (J) .EQ. 1) TH 
DO 40 L = BEGSCH{MOSNUM (3) , LGRD(J)) ,ENDSCH(MOSNUM(J) , 
C HGRD (J Y) 


+ OOM 


OO Ob Rb RF 


ee THEN 
B esc (HOSNUM( 3) LGRD(J)) ,ENDSCH(MOSNUM(J), 


Iii 


45 


40 


oS 


50 


65 


60 


Lo 


70 


IF (1 EQ. 0} GOTO 45 
IF (LSTBOD(L NE. BOONE)? THEN 
IF (ISEX(L) EQ. THEN 
ee 2 Boon (3) 
ICOST = cost (rcoste(1), CSTCTR(K)) 
WRITE(10,1004) IDNUM(L$ .PMCC(L) .FMCC(K) ,SPL(K), 
FITLVL(J),CAPCTY(K), rece E2NUM(K) | 
CONTINUE 
ENDIF 
ENDIF 
CONTINUE 
ELSE iF (SEX(J) .EQ. 2) T 
DO L = eo LGRD(J)),ENDSCH(MOSNUM(J), 
age 


iE EstBoa(n) On NE. BODNUM() THEN 
IF (ISEX(L) EQ. 2 
LST30D(L) = Boontn(3) 
DO 55 K = 1,NUMM 
nee = cost (Tcoste(1), CSTCTR(K)) 
WRITE(10,1004) IDNUM(L) ,PMCC(L) ,FMCC(K),SPL(K), 
FITLVL(J),CAPCTY(K) , COST, E2NUM(K) 
CONTINUE 
ENDIF 
ENDIF 
CONTINUE 
ENDIF 


see IF eee ae a THEN 


F (SER(I) EQ. THEN 
60 L=3B8 Be CHa une LGRD(J)) , ENDSCH(MOSNUM(J), 
HGRD(IY 
Ree eOr 9) 60 GoTo 65 
IF (LSTBOD(L) .NE. aa THEN 
IF (ILDO(L) 29, 1) 
LSTBOD (1) = a 
DO 65 K = 1,NUMM 
ICOST = se orci) CSTCTR(K) ) 
WRITE(10,1004) IDNUM(L$ .PMCC(L) ,FMCC(K) ,SPL(K), 
FITLVL(J) , CAPCTY(K) , ICOST, E2NUM(K) 
CONTINUE 
ENDIF 
ENDIF 
CONTINUE 
ELSE IF (SEX (J) .EQ. 1) THEN 
bot, L* BEGSCH(MOSNUM(J) , LGRD(J) ) ,ENDSCH(MOSNUM(J), 
te (oe eor £3 GOTO 75 
IF (LSTBOD(L NE. BODNUM(I)) 7 
IF ((ISEX CE) EQ. d 
Es TBOD(L) = B biti y 
DO 75 KR = 1,N 
Mean = cost (Icosrc(t) CSTCTR(K 
WRITE(10,1004) IDNUM(L} , PMCC(L) 
FITLVL(J), CAPCTY(K) , LCOST,E2NUM(K 
CONTINUE 
ENDIF 
ENDIF 
CONTINUE 
ELSE IF (SEX(J) NEO M2 )a 
DO 80 L SEGSCHTMOSNUM() , LGRD(J)),ENDSCH(MOSNUM(J), 
HGRD(J) ) 
If (icon 0} GOTO 85 
IF (LSTBOD(L NE. BODNUM(J)) T 
IF ((ISEX(L) Bont 
LSTBOD ny = B DNUM oie 
{COST = Cost(acoste(1) CSTCTR(K)) 
WRITE(10,1004) IDNUM(L$,PMCC(L) ,FMCC(K) ,SPL(K), 


(IDO (L) .—EQ.1)) THEN 


) 


duce (K) ,SPL(K), 


(iibo(L) .EQ.1)) Thee 


W1Z 


85 


80 


25 


90 


105 


100 


Zo 


FITLVL(J) ,CAPCTY(K) , ICOST, E2NUM(K) 
CONTINUE 
ENDIF 
ENDIF 
CONTINUE 


ENDIF 
ELSE IF (LD9(3) .E : 2) THEN 
IF (SEX(J) EQ. THE 
D0 90 L=B8 Pee ne en LGRD(J) ) ,ENDSCH(MOSNUM(J), 
HGRD (J yy 
LA econ 2 GOTO 95 
LSTBOD(L .NE. a) THEN 
rim TL OOCE EQ. 2 
ane = aT ed 
DO 95 K = 1,NUMMCC 
ICOST = COST(ICOSTC(L) , CSTCTR(K) ) 
WRITE(10,1004) IDNUM(L) ,?MCC(L) 
FITLVL(J),CAPCTY(K) , [COST , E2NUM(K) 
CONTINUE 
ENDIF 
ENDIF 
CONTINUE 
ELSE IF ( SEX(J ) .EO. 1) THEN 
DO 100 L = BEGSCY(MOSNUM(J) , LGRD(J)),ZNDSCH(MOSNUM(J), 
HGRD(J) ) 
Trager Or 0} GOTO 105 
IF (LSTBOD(L) .NE. BODNUM(J)) THEN 
IF ((ISEX(L) .£0. 1) AND. (IiDO(L) .—EQ. 2)) THEN 
LSTBOD(L) = BODNUM(J) 
DO 105 K = 1,NUMMCC 
ICOST = COST(ICOSTC(L) ,CSTCTR(K 
WRITE(10.1004) IDNUM(LS. eMcc(L) 
FITLVL(J) , CAPCTY(K) , ICOST, E2NUM(K 
CONTINUE 
ENDIF 
ENDIF 
CONTINUE 
ELSE IF (SEX(J). 2) THEN 
Ne) 210 ea BEGSCH(MOSNUM(S) , LGRD(J)),ENDSCH(MOSNUM(J) , 
HGRD(J)) 
IF Y EQ. a GOTO 115 
IF (LSTBOD(L) .NE. BODNUM(J)) THE 
IF (CUESEX(L Ou 2) (fibO(L) .EQ. 2)) THEN 
OD(L) =  SODNUM (J yo 
ae Te K = 
ICOST = cSt TcOsTC(L) CSTCTR(K 
WRITE (10 1004) IDNUM(LS ,PMCcCc( (1) 


BMGCCUK) SPE CK), 


) 
) 


) 
BuGgepceLcK). 


) duce (K) ,SPL(R), 


FITLVL(J) ,CAPCTY(K) , COST, E2NUM(K) 
CONTINUE 
ENDIF 
SNDIF 
CONTINUE 
ENDIF 
ENDIF 
‘ELSE IF ae Ei '—E ') OR. (EXPEXC .EQ. 'EE')) THEN 
Pe CLDOCG) " THEN 
IF (SER(S) 0) THEN 
pO 120 4 = oNECSCH(MOSNUM(3). LGRD(J)) , ENDSCH(MOSNUM(J), 
HGRD (1) y 


IF y .EQ. ° GOTO 125 
IF petaen -NE. 80DNUM(J)) THEN 
IF (TEXP(L) .EQ. 1) THEN 
ae opium (5) 
DO 125 
1cosT. = COREY EeOSTC(L) ESTeER(K) ) 
WRITE(10,1004) IDNUM(L),PMCC(L) ,FMCC(K) ,SPL(K), 
FITLVL(J) ,CAPCTY(K), ICOST, E2NUM(X) 
CONTINUE 
ENDIF 


tel 


120 


135 


130 


£55 


HS. 


160 


ENDIF 
CONTINUE 
ELSE IF (SEX(J) EQ.) 
BO 170.5 = BEGSC (MOSNUM(I) . LGRD(J)) , ENDSCH(MOSNUM(J), 
IF (L .EQ. 2 GOTO 135 
IF (LSTBOD(L) .NE. BODNUM(J)) TH 
IF ((ISEX(L) EQ. 
Ls STBOD (E) = 8 Date (3 
DO 135 1, NUMMC 
eae. - COST (TCOSTC(L) CSTCTR(K 
WRITE(10,1004) IDNUM(LS >MCC(L) 
FITLVL(J) , CAPCTY(K) , COST, EONUM(K 
CONTINUE 
ENDIF 
ENDIF 
CONTINUE 
ELSE IF (SEX(J) .EO. 2) THEN 
DO 140 1 = BEGSCH(MOSNUM(J) ,LGRD(J)),ENDSCH(MOSNUM(J), 
HGRD (J) ) 
tT? na oOn 2 GOTO 145 
IF ESTBOD(L NE. SODNUM(J)) TH 
IF UESEX(L) .EO. 2) AND (EXP (L) .—EQ. 1)) THEN 


(EXP (L) .EQ. 1)) THEN 


) 
) 


PMCC(K) ,SPL(K), 


PEODCe) a= SODNUM (J 
DO 145 K = 1,NUMMC 


TCOS ies COST ICOSTC(L) CSTCTRUG)y 
WRITE(10,1004) IDNUM(L) ,PMCC(L) ,FMCC(K) (/SPoee 
PITLVE(g 2 CAPCTVIC nCO T, £2NUM(K) 
CONTINUE 
ENDIF 
ENDIF 
CONTINUE 


ENDIF 


UST IGT ee? =O. 1) THEN 
L Lo. 


F (SER THEN 
DO° 150 ies peGscH (HOsNUMCoT LGRD(J)) ,ENDSCH(MOSNUM(J), 
HGRD(J) ) 
Le 4 Leer . GOTO 1 55 
LE LsTBOD(L NE BOONE ee 


IF ee DO(L): .3 1) (TEP (L) -EQ. 1)) tae 
LSTBOD(L) =-8 DNUM ( cy 
O55 K= Se 


ICOST = COST(ICOSTC(L) ,CSTCTR(K)) 
WRITE(10,1004) IDNUM(LS, PMCC(L) 
FITLVL(J) ,CAPCTY(K) , ICOST, E2NUM(K) 
CONTINUE 


FMCC(K) , SPE na 


CONTINUE 
ELSE IF (SEX(J) .£Q. 1) THEN 
bo. 160 L = BEGSCH(MOSNUM(J), LGAD(J)) , ENDSCH(MOSNUM(J), 
Te (Ll 20. . GOTO 165 
IF AESTBOD (1 NE. BODNUM (J) ) THEN 
SUEY) EO 9 (ILDO(L) .EQ.1) 
AND TEXP(L) EO. 1) oeut 
D( Lia “Boone () 
nell 163 — cc 
ICOST = cost (1cosTe(L) CSTCTR(K)) 
WRITE(10,1004) IDNUM(L), 2MCC(L) ,SMCC(K) ,SPL(K), 
TITLVL(J) , CAPCTY(K) , ICOST, Z2NUM(K) 
CONTINUE 
ENDIF 
ENDIF 
CONTINUE 
ELSE IF (SEX(J) EQ. 2 
Bo da L = BEGSC oe LGRD(J)) , ENDSCH(MOSNUM(J), 
IF ¢ EQ. _ GOTO 175 
IF (LSTBOD(L) .NE. BODNUM(J)) THEN 
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es £0. Ah ea ie (TEDO( LD ymeeo. 1 ) 
c ‘AND. eo Fon 
LSTBOD(L) opt 7) 


DO 175 K NUMMCC 
1cosT = COST (ICOSTC(L) CSTCTR(K)) 
WRITE (10, 1004) IDNUM(L), PUCC (L) FMCC(K),SPL(K), 
é FITeen sy CAPCTY(K), ICOST, E2NUM(K 
175 CONTINUE 
ENDIF 
ENDIF 

170 CONTINUE 


ENDIF 
ELSE IF (LDO(I) E , 2, THEN 
F (SEX(J) Lk HEN 
DO 180 L = SGSCH(HASNUM() , LGRD(J)),ENDSCH(MOSNUM(J), 
E HGRD(3 ) 

IF (L .EQ. } GOTO 185 

IF (LST3OD(L) .NE. pee i 2 
IF (C{TLDO (1 ) EQ. 2 
BOD(L) = 2 Cinta 3) 
DO 185 K = 

ICOST = coST(TCOsTe(L) esmenacn 
WRITE(10,1004) IDNUM(L}, /BHCC(L) 4 


CLEXP (L) £0. 1)) THEN 


» FMCC(K),SPL(K), 


é FITLVL(J),CAPCTY(K) , ICOST, E2NUM(K) 
185 CONTINUE 
ENDIF 
ENDIF 
180 CONTINUE 
ELSE IF sSEX(J) EQ. 
F atts = =e qaacka a), LGRD(J)),ENDSCH(MOSNUM(3), 
Eregh 7.50. } GOTO 195 
IF (ESTBOD(L NE. BODNUM (J I) TH 
F ((TSEX(L ) 22. 1 (iLDO(L) ECEN2) 
C AND. TEXP (1) ; 1), THEN 
STBOD(L) = ODNU UM(J) 
0195 K = 
ICOST = coST(TCOsTe (1) Ecrern (ny) 
_ WRITE(10,1004) IDNUM(L$,PMCC(L) ,FMCC(K) ,SPL(K), 
C FITLVL(J) , CAPCTY(K) , ICOST, E2NUM(K) 
195 CONTINUE 
ENDIF 
ENDIF 
190 CONTINUE 
ELSE IF (SEX(J) EQ. 2 THEN 
DO 200 L = BEGSC one LGRD(J)) ,ENDSCH(MOSNUM(J), 
C HGRD (J 
IF .EQ. 0} GOTO 205 
IF AESTBOD(L NE. Cn THEN 
B (CISERIL) EQ. (TREO (I ase Ose) 
C AND. TEXP (1) 5 HEN 
LSTBOD(L) = BODNUM 


0 “508 K = 1, NUMHCC 
HeOst—meost MEOSTC UR CSOLeCiRn( Kh) 
WRITE(10, 1004) IDNUM(L), Ae: Poe). 


e FITLVL(J),CAPCTY(K) , ICOST, E2NUM(K 

205 CONTINUE 

‘ENDIF 

ENDIF 
200 CONTINUE 

ENDIF 
ENDIF 
ENDIF 


RRAAKKAKE 


* IN HERE WE WILL LATER INSERT A SERIES OF "IF-THEN-ELSE-IF" 

* STATEMENTS TO Shen ue CONDITIONS UNDER THE MAJOR CONDITION 

* IF ((AMOS1(J) tkxKK!') [AND. (AMOS2(J) .EQ. | RRR!) ) THEN 

* THIS WILL CAPTURE aos "CARDS mee HAVE A PARTIALLY NUMERIC OR 

* COMPLETELY CHARACTER (IE.:!'****') AMOS. FOR NOW, WE WILL IGNORE THEM. 


Wits 


ENDIF 


ENDIF 
* NOW THAT WE HAVE MATCHED ALL ACCEPTABLE OFFICERS FROM THE 
* INVENTORY TO CARD(J), WE GO BACK TO THE BEGINNING OF THE MATCHING 
* PROCESS UNTIL WE HAVE LOOKED AT ALL FIT LEVELS FOR THE GROUP OF 
* DEMANDS WE HAVE READ IN. 
20 CONTINUE 
* WE ARE ABOUT TO GO THE NEXT GROUP IN THE FILE. BUT SINCE WE FOUND THE 
* END OF THE LAST GROUP WHEN WE HIT THE FIRST LINE IN THE NEXT GROUP, 
* WE MUST RECOVER THE VALUES OF THE FIRST CARD IN THE NEW GROUP WHICH 
* WERE STORED IN TEMPORARY VARIABLES. 

I = 

LGRD(I) = TLGRD 

LEAP(I) = TLEXP 

HGRD(I) = THGRD 

HEXP(I) = THEXP 

PMOS( 1) = IPMGs 

OFFTYP(I) = TOFTYP 

AMOS1 4 = TAMOS1 

nage G = TAMOS2 

sol = TLDO 

SEA(L) = ISEA 

MOSNUM(I) = TMOSNO 

ELNUM(I) = TELNUM 

ee = TBODA 

CSTGIAR( 1) = TeGrn 

E2NUM(I) = TE2NUM 

FMCC(I) = TFMCC 

SPEC.) =<0Ser 

ene = TFITLV 

CAPCIY( 21) = Lear 

TKOUNT = TKOUNT + 1 

GOTO 501 
9993 WRITE(02,*) 'GROUP ',TKOUNT;' HAS ',ENDGRP,' CARDS.' 


RAKKRAKKAKKKKKKKRK KK BEGIN MATCH OF NON-MOVERS 


a 
eine cata READ NON-MOVER INVENTORY INTO RESIDENT MEMORY 
READ(11,102,END=9994) IMOS(I),IGRD(I),IAMOS1(I) ,IAMOS2(I), 


RAKKKRKRKKKRRKRRRRARKRKRRRR 


KRARRAKRKKKRKRRK 


CPMCC(I), TEXP(T), /ISEX(I),ILDO(1I),IDNUM(I), IMOSNO(I),ICOSTC(I) 
LSTBOD(I) = 
IF (K EQ 1000) THEN 
WRETE (0 yey | K 
WRITE (02,102) tMog (1), TGRD(1) IAMOS1(I) , IAMOS2(I), 
CPMCC(T), veka). TSEX ee /ILDO(1) , IDNUM(I), IMOSNO(I) , ICOSTC(I) 
ELSE iF 29: 
WRITE 
WRITE 037 10 2) *TMOS (I), IGRD(I),IAMOS1(I) ,IAMOS2(I), 
CEMCC(T), /LEXP(1), ISEX(I),ILDO(I) , IDNUM(I) , IMOSNO(I) , ICOSTC(I) 
R=K+1 
7 CONTINUE 
9994 CONTINUE 
WRITE(02,*) 'THERE ARE',K,'PEOPLE IN THE NON-MOVER INVENTORY FILE'! 


SUPSIZ = SUPSIZ ex 


KKK aus THE NUMBER OF PEOPLE IN THE INVENTORY (= SUPPLY SIZE) 


kkk TO A DATA FILE. THIS WILL BE USED IN THE ARC GENERATOR PROGRAM 
WRITE (17, 104) SUPSIZ 

104 FORMAT(IS) 

kkk WHILE WE ARE THINKING OF THE ARC GENERATOR ROUTINE, WE MIGHT 

kkk RS WELL ALSO OUTPUT THE OTHER INPUT ITEM FOR THAT PROGRAM. 

kkk WE WANT TO ALLOW THE DECISION MAKER TO ADJUST THE WEIGHTS OF 

**x THE FIT AND COST OBJECTIVES IN THE NETWORK FORMULATION. FOR 


THIS, WE WILL NEED AN ALPHA VALUE WHICH CAN BE ADJUSTED. AT 
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KA 
KR 


ARK 
ARR 
ARK 
KKK 
ARK 


AK FIRST, WE WILL SET ALPHA TO 1.0 WHICH CORRESPONDS TO MAKING RAK 
*xxX =€6THE FIT OBJECTIVE PRE-EMPTIVE OVER THE COST. THIS VALUE WILL *** 
xxx = BE READ OUT OF THE FILE ALPHA1 DATA Al WHEN THE PROGRAM BEGINS.*** 


ARK ONCE THE PROBLEM HAS BEEN RUN ONCE, FUTURE VALUES OF ALPHA RRR 
KR BE READ OUT OF A DIFFERENT FILE, ALPHA2 DATA Al, WHICH RAK 
RAK CONTAINS EITHER THE ORIGINAL ALPHA VALUE (IF NO CHANGE IN THE *** 
*kk = =WEIGHTS HAS BEEN MADE) OR A VALUE ADJUSTED BY THE DECISION AK 
*kk =©6TO REFLECT A DIFFERENT WEIGHT ON THE OBJECTIVES. SO... NOW AK 
*kk =€©6WE WILL OUTPUT A VALUE OF ALPHA = 1.0 KKK 
ALPHA = 1 
ee ey ALPHA 
106 FORMAT (F5.3) 


RRAKRKRKRKKKKKRKRKKRARKEREER RE-INITIALIZE EP ARRAY REARKKKKKKREKRKKRKEEKE 


DO 22 I = 1,250 
nome? J = , 
Eupeca ee 2} 
ENDSCH (GL, J 
22 CONTINUE 


REAEKKKAKREKKEKERE READ EP ARRAY INTO RESIDENT MEMORY KAEEKKKKKKKREKKKERER 
* NEXT, WE WILL READ IN THE ENTRY POINT ARRAY DEVELOPED FOR THE 
* NON-MOVERS, CALLED NMOVR-EP ARRAY 


DO 8 I = 1,250 


DO 8 J =1,5 
READ(19,103,END=9995) BEGSCH(I,J),ENDSCH(I,J) 


an KK OK BEGIN TEST PRINTOUT 
WRITE(02, eS I,J,'BEGSCH(I,J)=' ,BEGSCH(I,J),'ENDSCH(I,J)=', 
CENDSCH (I,J 
max * END TEST PRINTOUT 
8 CONTINUE 
e779 CONTINUE 
KAKRRAAAKARKRRAKKK RRA RRR AKKKK RE RKK RRR RIKER RE RERRRA AERA RRR IK 


* READ IN EACH LINE FROM THE FILE MOVR-DEM INPUT FOR MATCHING ss 
* . READ IN E1/E2/ASR CARDS AND SORT OUT THE NUMBERS OF FIT LEVELS 
* AND MCC'S WITH EACH PARTICULAR BOD DEMAND. 


x INITIALIZE 
I= 1 


TOTFIT = 0 


READ(13,101) LGRD(I),LEXP(I) ,HG 
eas Ty /AMOS2(I),LDO(I), ,SEX(T) ; MO 
CE2NUM(I),CSTCTR(I),FMCC(I),SPL(I), 

TKOUNT = 1 

oi I = I+1 

READ(13,101,END=9996) LGRD(I), LEXP (1) , HGRD(1I) , HEXP 
COFFTYE (I), ANOS} (2) ,AMOS2(I),LDO(I) ,SEX(1I) ,MOSNUM(I 
CBODNUM(I) ,E2NUM(I) ,CSTCTR(I),FMCC(I) ,SPL(I) , FITLVL 

IF (BODNUH(T) .EO. BODNUM{(I- 1) GOTO 601 

IF (BODNUM(I N . BODNUM(I-1)) THEN 


ENDGR 
* ee cen na ce IN THE NEXT BOD SET IN TEMPORARY VALUES 


0 
0 


é 
| 
LL 
Q 
a 
oO 
HHH 





TE2NUM = E2ZNUM 
TFMCC = FMCC(I) 
TSPL = SPL(TI) 
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TFITLV = FITLVL(1) 
TCAP = CAPCTY(T) 
ENDIF 


kk kK ke * & & = =BEGIN TEST PRINTOUT 

WET TE oa xs VFI IKK KKK KKK KKK KKK KKK KK RRR KR KKK KKK KKK KKK | 
02,* 
* 


a 


WRITE ‘GROUP ',TKOUNT," HAS " (ENDGRE Seaneou 
ee ese are END TEST PRINTOUT 


EACH OF THE GROUPS WE HAVE JUST READ IN CONTAIN ALL OF THE E1-CARD 
AND ASR INFORMATION FOR THE MOVERS. EACH GROUP CONTAINS ALL OF THE 
E1-CARD DATA AND THE MCC AND DEMAND (OR CAPACITY) FOR EACH DEMAND 
ASSOCIATED WITH THAT El INFORMATION. BECAUSE WE HAVE COMPRESSED SO 
MUCH INFORMATION INTO A SINGLE FILE, WE MUST NOW DETERMINE TWO THINGS 
ABOUT EACH GROUP. FIRST, WE MUST FIND THE NUMBER OF SUESTIIUTa® 
LEVELS FOR THE DEMANDS OF THIS TYPE (ALSO CALLED THE “EQDNC an 
ADDITIONALLY, WE MUST ASCERTAIN THE NUMBER OF DEMANDS IN THE GROUP 
WHICH CORRESPOND TO THE BOD SET. WE WILL USE THESER Poets ome 
INFORMATION AS INDICES TO HELP US PERFORM THE MATCHING OF PEOPLE TG 
BILLETS WITH SOME SEMBLANCE OF EFFICIENCY. THE NUMBER OF SUBST TDG 
LEVELS, CALLED "NUMFIT", TELLS US WHEN TO BEGIN SEARCHING THROUGH Eas 
NEXT BOD. THE NUMBER OF DEMAND LOCATIONS, WHICH IS EQUIVALENT TO THE 
NUMBER OF MCC'S)) Ese CAELED SNUiiecez THIS INDEX TELLS US HOW MANY 
(AND WHICH) MCC'S WILL BE MATCHED TO THE VALID PEOPLE-SUBSTITUTION 
MATCHES WE FIND BY MATCHING THE BOD SETS TO TRE IV aiter 


MARKR1 = 0 

MARKR2Z = 0 

ae (ENDGRP- ae 1) THEN 
NUM eee 


YS, Sa, SD, SS SD SS SO SS 


NUMMCC i 
Etoe eon \(ENDGRP pol) IHEN 
DOW: Zz ENDGRP 
iF re -EQ. FITLVL(I-1)) .AND. (MARKR1 .EQ. 0)) Gea 


MARKR1 = 1 
ELSE IF ((FITLVL(I) .GT. FITLVL(I-1)) .AND. (I .EQ. ENDGRP)) 


NUMFIT = 1 
ENDIF 


oe wunerce © 2-4 -EQ. FMCC(I-1)) .AND. (MARKR2 .EQ. 0)) THEN 


MARKR2 = 1 
ELSE IF. AG Hec(2) .NE. FMCC(I-1)) .AND. (I .EQ. ENDGRP)) THEN 


ENDIF 
220 CONTINUE 
ENDIF 


~ AT THIS POINT, WE SHOULD HAVE THE NUMBER OF FIT LEVELS AND DEMANDS 
x WITHIN THE GROUP. AS A CHECK, WE WILL PRINT OUT THE RESULTS. 
x WE WILL INCLUDE A RUNNING TOTAL OF THE TOTAL NUMBER OF £1-CARDS 
* INCLUDED IN THE FILE, AND CALL THIS VARIABLE TOTFIT. 
TOUFIT = TOtr Eee 


kk k & kK * RK * BEGIN TEST PRINTOUT 
oMRETE (02. ,*) 'THE NUMBER OF FIT LEVELS IN GROUP ',TKOUNT,' IS '', 
UMF 
WRITE (03. . 'SO FAR THERE HAVE BEEN A TOTAL OF' TOTFIT,'El CARDS.' 
WRITE(02.*) 'THE NUMBER OF MCC DEMANDS IN GROUP ',TKOUNT,' IS |, 


CNUMMCG, . 
en END TEST» PRINTOUR 
KAKKKKKK KKK KKK KKK ER KKK KK RARER RAK KKK RRR EKRERRAKRAKKAREKRRARERRKRK KK 


MATCH NON- MOVERS | 
* x xX 


K ROR KOK OK ROK KOR * xk KK RRR KR KK KK 


* * * * * * 
* * * * * * 


* * * 
* * * 
* * * 
* * * * * * * * 
* * * 
* a * 
* RAK KKK aX 


HO OO OO 
a- 
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* * * * 


oe GENERATE SOME VARIABLES TO BE USED IN THE MATCHING PROCESS. 
DO 220 J = 1,NUMFIT 
MOS = PMOS(J) 
LAST1 


= a 4:4) 
EXPEXC = LEXP(J) // HEXP(J) 
WRITE (02, *)- TTASTIM =! “LASTIM, EXPEXC = ' ,EXPEXC 
NOW COMES THE CATEGORIZATION OF EACH E1LEZ CARD AS IT IS MATCHED TO THE 
DEMAND. EACH CARD IS FIRST SEPARATED ACCORDING TO THE NATURE OF THE 
PMOS. THERE ARE THREE MAJOR MOS CATEGORIES: PURELY NUMERIC, PARTIALLY 
OR COMPLETELY CHARACTER (THAT IS, WITH SOME OR ALL "'*"''S), AND 
MISSING (THAT IS, NOTHING IN THE PMOS POSITION - MATCHES ARE MADE ON 
THE OFFTYP RATHER THAN THE PMOS. ) 


Beamer eeX** CHECK IF A NON-MOS CARD! (IE. MISSING PMOS)  ****kkxKRAE 
IF (PMOS(J) . O') THEN 

* NOTE:THE NEXT THREE LINES MAY BE REMOVED - OUTPUT TO NON-MOS FILE 
WRITE(07,101) LGRD(J),LEXP(J),HGRD(J), HEXP (J) PMOS(J) ,OFFTYP(J), 

* caMos: (4). ANOS? (1), ,LDO(J) ,SEX(J) ,MOSNUM(J) ,ELNUM(J) , BODNUM(J), 

* CBODE2(J),E2NUM(J),FMCC(J$,SPL(J) , FITLVL(J), CAPCTY(J) 


KRREEKRRERRARRKEEE CHECK IF A CHARACTER MOS CARD FHKE 
ELSE IF (LASTIM .EO. '*') THEN 
* NOTE: THE NEXT THREE LINES MAY BE REMOVED - OUTPUT TO HARD-MOS FILE 
WRITE (04,101) LGRD (J) LEXP(J) ,HGRD(J),HEXP (J) ,PMOS(J) ,OFFTYP(J), 
memos (a). anose (a . ,LDO(J) ,SEX(J) ,MOSNUM(J) ,ELNUM(J) , BODNUM(J), 
CBODE2(J),E2NUM(J),FMCC(J),SPL(J), FITLVL(J5, Seas) 


AKREEKKRKREREKKRKK CHECK IF PURELY NUMERIC MOS CARD KREEKKKRKKKRKKKREKE 
ELSE IF ((PMOS(J) .NE. O') .AND. (LASTIM .NE. '*')) THEN 
NOTE: THE NEXT THREE LINES MAY BE REMOVED - OUTPUT TO EASY FILE 
WRITE(03,101) LGRD(J),LEXP(J) ,HGRD(J) ,HEXP(J),PMOS(J),OFFTYP(J), 
Bereeh \2¢ 2808 (3), ,LDO(J) ,SEX(J) ,MOSNUM(J) ,ELNUM(J) , BODNUM(J), 
CBODE2(J),E2NUM(J),FMCC(J),SPL(J), FITLVL (5, CAPCTY (J) 


WE NOW HAVE SEPARATED THOSE El CARDS WHICH HAVE PURELY NUMERIC. FROM 
Paes WITH ASTERISKS IN ONE OR MORE OF THE MOS FIELDS, AND THOSE WITH 
ONLY AN OFFTYP. IN THIS SEGMENT OF THE PROGRAM, WE ARE MATCHING THE 
PURELY NUMERIC MOS El CARDS. 

THE ONLY TIME-THE EXPERIENCE CODES WILL COME INTO PLAY IS WHEN 
THERE IS A DEMAND FOR EXPERIENCE IN THE LOWER GRADE. THIS APPEARS AS 
AN EXPERIENCE EXCEPTION CODE (EXPEXC) OF 'E ' OR 'EE'. 

WE WILL FIRST EXAMINE THE OTHER, MORE COMMON CASES 


SINCE ONLY NON-MOVERS ARE BEING CONSIDERED IN THIS PART OF THE 
ee ice e MOVING COST ("ICOST") IS ALWAYS ZERO. 


+ 


+444 4 OF 


a 


4 Oe 


RAKKK LOCALIZE THE EXACT CATEGORY WITHIN THE NUMERIC MOS CARDS 
(nc Selene alla laa aa lala lain 


Te ees ae -E 'kAAK')Y AND. (AMOS2(J) STM THEN 


F (CEXPEXC NE. 'E eee -AND. (EXPEXC .NE. 
IF (LDO(J) .EQ. 0) 7 
IF (SEX(I) THEN 


230 : BQO) THEN wea), LGRD(J)) , ENDSCH(MOSNUM(J), 


IF (L .EQ. 0) GOTO 235 
235 K = 1,NUMMCC 
IF (PMCC(L) .EQ. FMCC(K)) THEN 
IF (LSTBOD(L) .NE. BODNUM(J)) THEN 
LSTBOD(L) = BODNUM(J 
WRIT= (10, ,1004) IDNUM(L), eyecit), pig arn th) 


e ,FITLVL(J) , CAPCTY(K) , ICOST , E2NUM(K 
ENDIF 
ENDIF 
235 CONTINUE 
230 CONTINUE 
ELSE IF (SEX(J) EQ. THEN 
DO 240 L = BEGSC (iceNtitt 7) , LGRD(J)),ENDSCH(MOSNUM(J) , 
€ HGRD (J ) 
IF .EQ. 0) GOTO 245 
DO 345 °K = 1,NUMMCC 
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IF (PMCC(L) .EQ. FMCC(K)) THEN 
Xt) NE BODNUM (J) THEN 


re CISEX( Bae 1) Gy 
ESTBOD TL): = 8 J) 
WRITE(10,1004) TONUMGL) , ane FMCC(K) ,SPLECRm 
E Ee ,CAPCTY(R), Tees! ,E2NUM(K ) 
ENDIF 
ENDIF 
245 CONTINUE 
240 CONTINUE 
ELSE IF ee era 
DOT Zou = BEGSC (MOSNUMC3) , LGRD (J) ) ,ENDSCH(MOSNUM(J), 


e HGRD(J Y 
IF (L EQ. 0) GOTO 255 
DO 255 K = 1,NUMMCC 
IF (Puce(L) .EQ. FMCC(K)) TH 
IF (LSTBOD(L) .NE sa THEN 
IF (ISEX(L) EQ. 2) 
LSTBOD(L) = BOD Now 
WRITE (10,1004) EDNUCL) ce ,FMCC(K) ,SPL(R), 
E FITLVL (J), CAPCTY(R) | ICOST, E2NUM 


CONTINUE 
CONTINUE 
ENDIF 


ELSE Le ae) .E 1) THEN 
TF CSE H 


: Bo. 260.1 i Fo Nee LGRD(J)) ,ENDSCH(MOSNUM(J), 
Te " EQ. ve GOTO 265 
0 265 K = 
°F (PucE(EY ~ Exec K)) THEN 
IF (LSTBOD(L) sODNUM (5) ) THEN 
IF (ZLDO(T) 20. 4 THE 
LSTBOD(L ODNUM +) 
. WRITE(10,1004) IDNUM(L), ,BUCC(L) -FMCC(K) SEEM 

oa = FITLVL(J), /CAPCTY(K) , ICOST,E2NUM(K 


ENDIF 
ENDIF 
265 CONTINUE 
260 CONTINUE 
ELSE IF (SEX(J) EQ. 
DO 270 L = BEGS most LGRD(J)) , ENDSCH(MOSNUM(J), 
e HGRD(J ) 
IF SEO: 0) GOTO 275 
75 K = 1,NUMMCC 
IF (Puce (tL) .EQ. FMCC(K)) THEN 
IF (LSTBOD(L) .NE. BODNUM(J)) 
IF ((ISEX(L) EQ. AND. (TLDO(L) .EQ.1)) THEN 
LSTBOD ( (L) J 
WRITE(10 004)  TDNUM ), ,BNCC(L)  FMCC(K) :Saa 
C FIILVL (J), ,CAPCTY(K) , ICOST , E2NUM(K 


ENDIF 
ENDIF 
275 CONTINUE 
270 CONTINUE 
ELSE IF (SEX(J) EQ. 2 
: Boab ts) L = BEGSC (MOSNUHCS) , LGRD(J)),ENDSCH(MOSNUM(J), 
IF (L EQ. oe GOTO, 285 


IF ‘emcee (tL) .EQ. FMCC(K)) THEN 
IF (ESTBOD ( Eo NE. BOpNUH CS yes 
F ((ISEX(L) .EQ. .AND. (LbO(L) .EQ.1)) THEN 


ho 
aw 
Om 
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Serr eos = BODNUM(J) 
WRITE 004 au Tea ete /FMCC(K),SPL(K), 
C PITEVE( 3), peeeae ICOST , E2NUM 
ENDIF 
ENDIF 
285 CONTINUE 
280 CONTINUE 
ENDIF 
ELSE IF (LD9 (3) .EQ. 2) THEN 
IF (SEX(J) EQ. THE 
: ee : = BEGSCH(MOSNUM(J),LGRD(J)),ENDSCH(MOSNUM(J), 
IF ty EQ. 0) GOTO 295 
0 295 K = 


NUE C 
Li (PMCC(L) wae SMCC(K)) THEN 
if eS eee ~NE. 2) THEN THEN 
oe ee nee Wear 
OD 


WRITECION 2004) ONUMCD), PMC Oly eice( Kk) SPLiK), 
e eer CAPCTY(K) , ICOST, E2NUM(K ) 
ENDIF 
ENDIF 
290 CONTINUE 
290 CONTINUE 


ELSE IF (SEX(J) zQ. 2 
; | bo 399 5 = eeu et LGRD(J)),ENDSCH(MOSNUM(J), 
IF .EQ. 0) GOTO 305 
0 305 K = 1,NUMMCC 
IF (PMCC(L) .EQ. FMCC(K)) THEN 
IF (LSTBOD(L) .NE. BODNUM(J)) THEN 
IF ((ISEX fe : EQ. 1) AND . (ILDO(L) .EQ. 2)) THEN 


LST N 
WRITECLO™ 004) IDNUM(L), sBUCE(L) ,FMCC(K),SPL(K), 
C FITLVL(J), CAPCTY(K), ICOST , E2NUM 
ENDIF 
ENDIF 
| ENDIF 
305 CONTINUE 
300 CONTINUE 
ELSE IF (SEX(J) . EQ. 2 
DO 310 L = BEGSC bent) LGRD(J)),ENDSCH(MOSNUM(J), 
e HGRD(J ) 
IF .EQ. 0) GOTO 315 
S15 °K ae 
IF cpuce (L.) .EQ. FMCC(K)) THEN 
IF (LSTBOD(L) .NE. BODNUM(J) yor 
IF ((ISEX(L EQ. 2) (IEDO(L) .£Q. 2)) THEN 
LSTBO Op{U) aa 
WRITE (10,1004) PONCE), EMCEE , /FMCC(K) ,SPL(K), 
= c FITEL(G), CAPCTY(K), ICOST , E2NUM 
ENDIF 
ENDIF 
ENDIF 
315 CONTINUE 
310 CONTINUE 
ENDIF 
ENDIF 
ELSE IF ( (EXPEX ‘Sx ET ') .OR. (EXPEXC .EQ. ‘EE')) THEN 
IF (LDO(J) 120 
IF (SEx(3) EQ. 0 THEN 
DO 320 L = EGS CHU HOSNUM(J), LGRD(J)),ENDSCH(MOSNUM(J), 
E HGRD (J LD 
IF .EQ. 0) GOTO 328 


DO $35 K=1, 
IF (Pucc(L) EC FMCC(K)) THEN 
IF (LSTBOD(L BODNUM(J)) THEN 
IF (IEXP(L) .EQ. 1) THEN 


121 


S20 
520 


Soo 
330 


345 
340 


SES) 
350 


LSTBOD(L 


is BODNUM(J 
WRITE(10,1004 


) TONAL) PMCG 


bh. »FMCC(K) , SPLDCRm 
Re ,CAPCTY(K), EEOst, E2NUM 


ENDIF 
ENDIF 
CONTINUE 
CONTINUE 
EESE Sao (SEX(J) 
DO 330 L = BEGS 


SUNGeNTECS) , LGRD(J)) ,ENDSCH(MOSNUM(J), 
Hey 


-EQ. 0) GOTO 335 
DO S35 0K i, ULM 


iF (Puce (L) EO. FUCC UR pmemren 
IF (LSTBOD(L) .NE. BODNUM(J)) THEN 
LF See” EQ. h) en (1ExP(L) EQ. 1)) THee 
WRITE(10,1004) IDNUM(L), Nua »FMCC(K) , SPLC Ram 
FITLVL(J), CAPCTY(K) , ICOST, E2NUM(K) 
ENDL = 
ENDIF 
ENDIF 
CONTINUE 
CONTINUE 


ELSE IF (SEX(J) .EQ. 
DO 


Do 340 5 = DECECHUDSNGET) LGRD(J)) ,ENDSCH(MOSNUM(J), 
TF .EQ. 0) GOTO 345 
Do 345° Ree i 


NUMMC: 
IF (PMCC(L) =O. ” EMCC(R)) THEN 
IF , (ESTSOD(L .NE. BODNUM(J)) THE 
((ISEX(L EQ. 2) AND. (TERE (L) .£Q. 1)) THER 
LSTBOD(L ODNUM ( 3 
WRITE (10 1004) TDNUM(L) , BMC (L /FMCC(K),SPL(K), 
FITLVL(J) , CAPCTY(K) , ICOST ,E2NUM(K) 
ENDIF 
ENDIF 


ENDIF 
CONTINUE 
CONTINUE 
ENDIF 
ero LF coo: 2 
F (SEX(J) EQ. 
HGRD(3)) L = ESCH HGSNUM(3), LGRD(J)) ,ENDSCH(MOSNUM(J), 


IF ’ Ban, OC) GOTO 255 
DO 355 K=1,N 


UMM 
ES (PMCC(L) -EQ. FMCC(K)) THEN 
LF isTs00(L} 


ace THEN 


.NE. BODNUM(J)) T 
TF ((ILDO(L) .EQ. 1) AND. (TEXD(L) .EQ. 1)) THEN 
LSTBOD ( (U)6 ODNUM( J 
WRITE(10 004) IDNUM(L) , BUCC(L) , FCC (K) saa 
FITLVL(J) , CAPCTY(K) , ICOST, E2NUM(K 
ENDIF 
ENDIF 
ENDIF 
CONTINUE 
CONTINUE 
BLSE In MSEa) |. bO 9nd al 
DO 360 L = BEGSCH(MOSNUM( J) , LORD (Z)) , ENDSCH(MOSNUM(J) 
HGRD(J) ) 
EQ. 0) GOTO 365 
DO 365 K = 1,N 


UMMCC 
ee (PMCC(L) .EQ. FMCC(K)) THEN 
ic NSERC) ee yan 
LF oe 
~AND. 9.) 
Estee Ly = BODN 


WRITE(10,1004) butts 3) ) actu, ,FMCC(K) ,SPLGiam 
FITLVL(J), CAPCTY(K), PeOst, B2NuUG 
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THEN 
> (ELDO(L) EOL) 


| 


360 


J 


570 


385 
380 


S90 
B20 


ENDIF 
BNDIE 
ENDIF 
CONTINUE 
CONTINU 


E 
ELSE IF (SEX(J) EQ. 2 
fg ‘- BEGSC QiSsNuED) , LGRD(J)),ENDSCH(MOSNUM(J), 
L_.EQ. 0) GOTO 375 
375 K = 1,NUMMCC 
° TF (PMCC(L) .EQ. FMCC(K)) THEN 
IF iat 


NE. BODNUM (J 
anit ((ISEX(L) .EQ. 2) (ILDOCL) EOnL) 
sie td EQ. ohne ee . 
WRITE(10, (1) "= Book IDNUM(L) , pee eg PECC(K),SPL(R) 
FITLVL(J) , CAPCTY(K) , ICOST, E2NUM(K 
ENDIF 
ENDIF 
ENDIF 
CONTINUE 
CONTINUE 
ENDIF 
ELSE IF Cre .EQ. 2) THEN 
IF (SEX(J) 
DO 38 


sab(3)| L | LGRD(J)) , ENDSCH(MOSNUM(J), 
IF -EQ. 0) GOTO 385 
D $85 K = 1,NUMMCC 
IF cpHce (L) .EQ. FMCC(K)) THEN 
IF (LSTBOD(L) .NE. BODNUE(S)) 7 
IF ((ILDO(L 


EQ. 2 AND. (IEXP(L) .EQ. 1)) THEN 
LSTBOD(L optun cy) 
WRITE(10,1004) IDNUM(L), Be »FMCC(K),SPL(K), 
FILE (3), ,CAPCTY(K) , ICOST , E2NUM(K 
ENDIF 
ENDIF 
CONTINUE 

CONTINUE 


ELSE IF (SEX(J 
DO 390 L= AEC 
HGRD(J) ) 


SHUNOSNUH TD) LGRD(J) ),ENDSCH(MOSNUM(J), 
a L -EQ. on ae Boe 
395 K = 


is  euce(K)) THEN 
Le (EstBOn (tL ae ee See 


(tLbO(L) EE Omue)) 
AND. ec £0. "i THEN 
Gath oDNUM( 3). 
WRITE(10 004) IDNUM(L), ee): ,FMCC(K),SPL(K), 
FITLVL(J),CAPCTY(K) , ICOST, E2NUM 
ENDIF 
ENDIF 
ENDIF 
CONTINUE 
CONTINUE 
ELSE IF (SEX(J) .EQ. 2) THEN 
DO 400 L = 
HGRD (J » 


BEGSCH(MOSNUM(J),LGRD(J)) , ENDSCH(MOSNUM(J), 
IF EQ. 0) GOTO 405 
DO 405K 


IF cpuce (Ly. E  EMCC(K)) THEN 
IF Et eee “eS NE. BODNUM (J )) 
TSEX(t) 
EQ 


TLDO i) 5s BO wee) 
‘AND. (SEH Ct oa riiEN 2 : 
mad = BODNUM 
WRITE(10 004) IDNUM(L), PNG OC PONGGUR ork K), 
BE EEW Ey ,CAPCTY(K), ICOST , EZNUM 
he 


ENDIF 
405 CONTINUE 
400 CONTINUE 
ENDIF 
ENDIF 
ENDIF 
KAAKKRAKK 
* IN HERE WE WILL LATER INSERT A SERIES OF "IF-THEN-ELSE-IF' 
* STATEMENTS TO COVER ALL CONDITIONS UNDER THE ia CONDITION: 
x IF ((AMOS1(J) .EQ. '****') AND. (AM ANOS? ( ikAAK!Y) THEN 
* THIS WILL CAPTURE THOSE CARDS WHICH HAVE eee eee bp 
* COMPLETELY CHARACTER (IE.:'!****!') AMOS. FOR NOW, WE WILL IGNORE THEM. 
ENDIF 
ENDIF 


aAAAAD AAA 


NOW THAT WE HAVE MATCHED ALL ACCEPTABLE OFFICERS FROM THE 
INVENTORY TO CARD(J), WE GO BACK TO THE BEGINNING OF THE MATCHING 
PROCESS UNTIL WE HAVE LOOKED AT ALL FIT LEVELS FOR THE GROUP OF 
DEMANDS WE HAVE READ IN. 

20 CONTINUE 

WE ARE ABOUT TO GO THE NEXT GROUP IN THE FILE. BUT SINCE WE FOUND THE 
END OF THE LAST GROUP WHEN WE HIT THE FIRST LINE IN THE NEXT GROUP, 
WE MUST RECOVER THE VALUES OF THE FIRST CARD IN THE NEW GROUP WHICH 
WERE STORED IN TEMPORARY VARIABLES. 

teat 

LGRD(I) = TLGRD 
LEXP(I) = TLEXP 
HGRD(I) = THGRD 
HEXP(I) = THEXP 
PMOS(I) = TPMOS 
OFFTYP(I) = TOFTYP 
AMOST (2) = TAMOS1 
AMOS2(I) = TAMOS2 
LbO(T) = TED 
SEX(I) = TSEX 
MOSNUM(I) = TMOSNO 
E1NUM(I) = TELNUM 
Bou e = TBODA 
CSTCTR(I) = TCCTR 
E2NUM(1) = TE2NUM 
FMCC(I) = TFMCC 
SPL(I) = TSPL 
EITLvE (T) = TFITLY 
CAPCTY(I) = TCAP 
TKOUNT = TKOUNT + 1 
GOTO 601 


9996 WRITE(02,*) 'GROUP ',TKOUNT,' HAS ',ENDGRP,' CARDS.' 


AO Oe A OO 


NOW WE HAVE FINISHED DEFINING THE ARCS FOR MOVERS. 
IN ORDER TO SAVE SPACE, WE WILL TRY TO OVER-WRITE THE ARRAYS WEeguoe 
USED FOR MOVERS IN THE DETERMINATION OF MOVER ARCS. BECAUSE THIS I5 
FRAUGHT WITH DANGER OF ABENDING, WE MUST BE VERY CAREFUL TO KEEP COUNT 
SO ECGUREE HOW MANY PEOPLE AND E1/E2/ASR CARDS ARE ASSOCIATED WITH THE 
WITH THAT CAVEAT IN MIND, PROCEED TO MATCH THE FIXED PART 
OF THE INVENTORY IN MUCH THE SAME WAY AS THE FREE VPSaRT Se Rinse 
READ THE NON-MOVERS INTO THE INVENTORY ARRAY. NEXT, READ THE 
ENTRY POINT ARRAY FOR THE NON-MOVERS INTO THE EP-ARRAY. THEN, 
BEGIN TO READ IN THE E1/E2/ASR CARDS UNTIL WE HAVE READ IN ALL Of 
PARTICULAR GROUP. A GROUP IS DEFINED AS A SET CONTAINING ALL OF THE 
SUBSTITUTION CARDS (IE. FIT LEVELS) FOR A PARTICULAR BOD (BILLET) AND 
ALL OF THE DEMAND Te ACTUAL MCC'S AND UNFILLED CAPACITIES) FOR THAT 
BOD. WORKING WITHIN EACH GROUP, FIND EVERYONE WHO MATCHES GIVEN 
SUBSTITUTION CRITERIA WHO HAS NOT PREVIOUSLY BEEN MATCHED WITHIN THAT 
BOD SET. THEN GENERATE ARCS BETWEEN THAT INDIVIDUAL AND ALL MCC'S 
IN THE GROUP. THE PERSON IS THEN MARKED SO HE WON'T BE MATCHED AGAIN 
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WITHIN THE SAME BOD, AND THE SEARCH CONTINUES. ONCE ALL INDIVIDUALS 
HAVE BEEN CHECKED FOR THAT CRITERIA, THE NEXT CARD IS READ, AND THE 
PROCESS CONTINUES. ONCE ALL SUBSTITUTION LEVELS IN A GIVEN GROUP 
HAVE BEEN MATCHED, THE NEXT GROUP OF E1/E2/ASR CARDS IS READ. 

THE aa REPRESENTED IN THE GROUP OF CARDS. 


END 


ZS 


APPENDIX Q 
BIGSORT SAS 


1. PROGRAM TO SORT THE PEOPLE-JOB MATCHES OUTPUT FROM 
MATCH-AL FORTRAN 


x 

oes os PROGRAM NAME: BIGSORT SAS wis x 

aw 

RR KR RR RR RR KR RR KR KR KR RK RK RRR KR KR KR KR KR KR KR KR KR KOK ORK 


ae OVERVIEW AND PURPOSE * * * 


THIS PROGRAM SORTS THE MATCHES OF PEOPLE=T0=21LLEtoew eames 
OUTPUT FROM MATCH=-A8L FORTRAN, IN PREPARATION FOR INPUL  aitemea 
NETWORK GENERATION ROUTINE. THIS SORTING FUNCTION WAS HANDLED IN 
SAS BECAUSE OF THE CONVENIENCE OF THE SAS SORTING ROUTINES. ROWSVaee 
THE SORT OF APPROXIMATELY 85,000 ARCS TOOK OVER 100 SECONDS (Or seem 
TIME. CONVERTING THE SORTING FUNCTION TO FORTRAN MIGHT RESULT Sih 
SIGNIFICANT REDUCTION ‘IN THAT TIME. 

THE MATCHES ARE SORTED BY SPL, EZNUM, ‘AND SMEG” PRIMART Eee 
SPL DEFINES WHAT SRE CALLED “QUOTA GHOUPRS© INV anim ovence QUOTA 
GROUPS ARE ALL BILLETS WITH THE SAME SPL. THE &2ZNUM Wore eee 
EQUIVALENT TO THE 30D) AND THE FMCC DEFINE THE SPECIFIC DEMANDS 
FOR THE NETWORK. THESE DEMANDS ARE CALLED "QUOTAS" IN THE NETWORK. 


KR RR RR RRR RR KR RR RR RR RRR KR KR RR RRR KR RK 
AAR DEFINITION OF TERMS ARK 


CApGT?Z THE NUMBER OF BILLETS OF THE PARTICULAR BOD (E2NUM) AT 
THE LOCATION (FMCC) 


MAAAA ANA AAAAAAAAAAAHAPAAAA AA AT A TPS 
RO OH HHH HHA AAA aD 


Cost PCS —G@s0 FOR THE. PERSON-TO-JCBaianen 

E2NUM INDEXES THE SPECIFIC JOB DESCRIPTION (BOD) FOR THE MATCH 

Ela eve FIT LEVEL OF THE MATCH BASED ON SUBSTITUTION FRIGRI 

Snee FUTURE MCC. THE LOCATION OF THE DEMAND IN THE ares 

IDNUM THE INDEX OF THE INDIVIDUAL ON THE INVENTORY LIST 

SEE THS STAFFING PRECEDENCE LEVEL OF THE DEMAND IN THE Sieaie. 
kRaeR RRR KR RRR RRR KR KR KR KR RR KR KR KR RK KR KR KR K KR Kee 
* * * * * * * Ble DEFINIT TON * * * * * * * * * 


CMS ELLEDES “FONE Disk VATey Cure UT ea 
CMS FILEDEF FTWO DISK SORTED RAW-ARCS A (RECFM F LRECL 35 BLOCK 35; 
RREKRARKARAKKKARARRRAAKRARKRARARARKRARKEARRARRARARKERRARKARRRAKER RR REAAR RRR 
DATA DONE; 
INFILE FONE ; 
INPUT IDNUM 1-5 PMCC $7-9 FMCC e “13 SPL 15-16 FITLVL 18-19 CAPGi 
21°23 COST 25-29 E2NUM 31-34 


if TDNUM = . THEN | PELE 
Togenece =.) Seen DELETE: 
TP SPMCC = “SR EN DDE mame 
Ir SPL = . THEN DELETE; 

if FITLVL = . THEN DELSTE ; 
LE CAPCTY = . THEN DEEots 
Le COS] = » THENeOslLarz. 


TF EZNUM = 2. THEN DEE sue. 
PROC SORT DATA=DONE ; 
BY SFL E2ZNUM FMCG Pitt vices? hue 
DATA _NULL_; 
Soe elie 
Soe canes 
PUT SPL 1-2 E2NUM 4-7 FMCC $9-11 CAPCTY 13-15 FITLVE 1/7 -feeeeas 
20-24 IDNUM 26-30; 
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APPENDIX R 
NET-GENX FORTRAN 


PROGRAM TO GENERATE CAPACITATED TRANSSHIPMENT 


NETWORK 


x * %* %* PROGRAM NAME: NET-GENK FORTRAN a 


KKEKKKKRAKRKRKKKRKKKKKKKKARKKKKKAKKRERKRERKRKRKKERRKRKRKAKKRKKKEKKKKKKKKARARRK 
* 


* 
* 


RK me KOK KKK KKK KK KK KK KER KKK KKK KR KKK KR KR RK 


x * * OVERVIEW AND PURPOSE x os 


IN THIS PROGRAM THE RAW ARC INFORMATION GENERATED IN THE MATCHING 


PROGRAM (MATCH-AL FORTRAN) AND SORTED BY SPL, E2NUM, MCC, FITLVL, 


AND COST IN BIGSORT SAS Al, IS PUT INTO GNET FORMAT AS A CAPACITATED 
TRANSSHIPMENT NETWORK, WITH APPROPRIATE COSTS AND LABELS. ONE MAJOR 
GOAL IS TO GIVE THE DECISION MAKER THE FLEXIBILITY TO ADJUST TARGETS 


(IN THIS CASE, THE ACCEPTABILITY BOUND ON FILL) AND MODIFY THE 
RELATIVE WEIGHTS PLACED ON THE FIT AND COST OBJECTIVES. (IN EFFECT 
Beeee SOLVES THE PROBLEM WITH FIT AS A PRE-EMPTIVE OBJECTIVE OVER 
Bmemeool, 9» wilh COST AS PRE-EMPTIVE OVER FIT, OR WITH SOME WEIGHTED 
COMBINATION OF THE TWO). TO DO THIS TWO CAPABILITIES ARE NEEDED. 
mest, ime DECISION MAKER MUST BE ABLE TO SET THE UPPER BOUND ON 
meee ©O SOME LIMITING VALUE. SINCE THE SOLVER CANNOT FILL ANY MORE 
THAN THE UPPER BOUND, ANY ADDITIONAL DUAL DEGENERACY CREATED BY 
MOPCSING A REDUCED UPPER BOUND CAN BE USED BY THE SOLVER TO IMPROVE 
fae FIL AND COST OBJECTIVES. WHILE LIMITED TO THE FILL OBJECTIVE 
IN THIS PROTOTYPE, THIS PRINCIPLE COULD BE EXPANDED TO INCLUDE MANY 
NG E ARC.) OBJECTIVES AS WELL (IE. THOSE EXPRESSIBLE AS FLOW ON A 


AN ALPHA VALUE WHICH CAN BE ADJUSTED BY THE USER WILL BE USED 


MemeONTROL THE RELATIVE PRIORITIES OF THE FIT AND COST OBJECTIVES. 
Mel lALLY, THE VALUE OF ALPHA IS SET 10 1.0, WHICH CORRESPONDS TO 
PeernGeril A PRE=EMPITIVE OBJECIIVE OVER COST. THIS VALUE CAN BE 
ADJUSTED BY THE DECISION MAKER UPON VIEWING THE INITIAL SOLUTION. 
FUTURE ENHANCEMENTS COULD INCLUDE PROVISION FOR INTERACTIVE SETTING 
OF ALPHA BEFORE THE FIRST RUN. THIS IS NOT DONE HERE FOR SEVERAL 
PeeseNe. FIRST, iT £5 NOT THE PURPOSE OF THIS THESIS TO IMPLEMENT 
Eee ONTERACTIVE FEATURES OF THE MODEL. SECOND, THE STARTING POINT 
IS ARBITRARY, AND THUS THE DEFAULT WAS SET TO THE PRESENT 
PEeectiIVE. THIRD, IT IS NOT CLEAR THAT THE AVERAGE USER OF THIS 
MODEL WOULD UNDERSTAND THE SIGNIFICANCE OF SETTING ALPHA TO A 


‘PARTICULAR VALUE. RATHER THAN TAKE A LONG ‘TIME TO EXPLAIN IT IN 


A "USER-FRIENDLY" FASHION, IT MIGHT BE BETTER TO ADJUST IT 
meee THEREBY CREATING AN IMPLICIT UTILITY FUNCTION FOR THE 


THIS PROGRAM IS LARGELY SELF DOCUMENTING. THE DETAILS OF THE 
IMPLEMENTATION ARE DISCUSSED AS THEY APPEAR IN THE PROGRAM. 


Mena MRK KKK KARE KKK KKH KR KH KR KR KR KR KR KR KR KR KKK Kr KR KKK KK 


Ss FILE DEFINITIONS eee 


FILEDEF FILE IDENTIFICATION CONTENT/PURPOSE 

1 ALPHA DATA CONTAINS USER-SET VALUE OF ALPHA 

2 UPPR-BND DATA CONTAINS ANY UPPER BOUND ON FILL 
30 SUP-SIZE DATA CONTAINS TOTAL NUMBER IN INVENTORY 
ofl SORTED RAW-ARCS OUTPUT FROM BIGSORT - ALL MATCHES 
BC DEBUG ARC-FILE MONITORS INTERNAL PROGRAM FUNCTION 
34 GNET INPUT CONTAINS THE CAPACITATED TRANS-~ 

SHIPMENT NETWORK IN GNET FORMAT 
55 NET-INFO DATA EXTRACTS INFORMATION OF THE 


ra 


HO OR OH a HR EKER aR RHA HA 


a a SS SO A a SO a SS SA SS SS, SS SS 
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NETWORK USED IN THE SUMMARY PROGRM 


TNUMQG DATA GIVES TOTAL NUMBER OF QUOTA GROUPS 


* 
* 
* 


ARK KR KR KR KR KR KR KR KR KR KR KR KR KR KR KR KR KR KR RK KKK KR KR RK KK KK KK 


NAME (DIM) shies 


ALPHA R 


C( IARC) [x4 
CALPHA R 
DEMAND i72 


CP(IARC) I*2 
EZNUM i 
PLUCLSRe lz 


FMCC CHAR 
H(INODE) I%*4 


IARC I*4 
IDNUM I*4 
INODE I*4 


IQUOTA I*4 


ISINKT I*4 
NNFSTOQ 1*4 


NNLSTO I*4 
NUMQ (OGNUM) 1*4 
NUMOG I*2 
OE2NUM 1*2 
OFMCC CHAR 
OQGRP I*2 


PCSC(IARC) I*4 
QDEM(QNUM) I*2 
ODMAND R 


QGDEM(QGNUM) I*4- 
QNUM I*4 
QGNUM I*4 
QGRP (QGNUM)I*2 
SPL I*2 
SUPSIZ I*4 


T(IARC) 1*4 
TNUMQ I*2 


x * * DEFINITION OF TERMS x KK 


DESCRIPTION 


FLAG WHICH INDICATES IF ALPHA HAS BEEN CHANGED; 
WHEN AFLAG = 0 THE DEFAULT VALUE OF A = 1 IS USED. 
THE ALPHA USED TO WEIGHT FIT AND PCs COST iene 
OBJECTIVE FUNCTION. 

THE COST OF USING THE ARC NUMBER IARC. 

L-ALPHA = THE COMPLEMENT OF ALPHA 

DEMAND AT A QUOTA NODE. THE DEMAND ALSO DETERMINES 
THE NUMBER OF ARCS GOING FROM EACH QUOTA NODE TO 
RESPECTIVE QUOTA GROUP NODE. 
THE DEMAND ALONG ARC NUMBER IARC. 

EZ NUMBER. THE EZ NUMBER IS USED IN CONJUNCTION 
WITH THE FMCC TO DEFINE THE DIFFERENT QUOTAS. 

FIT LEVEL OF THE IARC-TH MATCH. FIT IS USED IN 
CONJUNCTION WITH PCS COST (PCSC) TO FORM A WEIGHTED 
SUM THAT'S USED AS THE COST ON THE SUPPLY=QUOCTAMARe 
FUTURE MCC. THE MCC TO WHICH THE INDIVIDUALS 
ON A PARTICULAR ARC. 

POINTER THAT TELLS WHERE IN THE TAIL LIST TO BEGay 
eh FOR THE TAILS ASSOCIATED WITH THE INODE=ie 
THE INDEX FOR Van Gs. 

THE ID NUMBER OF THE PERSON MATCHED ON THE ARC. 
THIS IS TRE INDEX SOR NODES. 

INDEX USED FOR QUOTAS IN THE GENERATION OF THE 
SECOND COLUMN OF ARCS (MATCHING Soot TO QUOTA 
GROUPS. SERVES AS AN INDEX TO QDEM(I 

INDEX FOR SINK NUMBER 1 TAIL 
NODE NUMBER OF THE FIRST QUOTA IN A QUOTA GROUP 
NODE NUMBER OF THE LAST QUOTA IN A g OTA GROUP 

THIS silo) Thee er An NUMBER? OF QUOTAS IN THE QGNUM-TH 
UOTA GROUP 

HIS IS THE TOTAL NUMBER OF QUOTA GROUPS. 
OLDE ZNUMBER ZS che se zNUMIOr E LAST RAW ARC- USED 
TO TELL IF A NEW QUOTA HAS BEEN BEGUN. 
OLD FUTURE MCC. THE FMCC OF THE PREVIOUS RAW ARG 
CARD. USED TO TELL IF A NEW QUOTA HAS BEEN STARTED 
OLD QUOTA GROUP. THIS IS THE QUOTA GROUP (=SPL) OF 
THE PREVIOUS RAW ARC CARD. TELLS IF A NEW QUOTA OR 
QUOTA GROUP HAS BEEN STARTED. 

FCS COST OF THE IARC-TH MATCH. THIS £5 Ustye eae 
FIT TO FORM A WEIGHTED COST ON THE SUPPLY-QUOTA ARC 
DEMAND OF THE QNUM-TH QUOTA 
REAL VARIABLE USED TO ALLOW DIVISION IN THE FORMULA 
USED TO DETERMINE THE SPECIAL COSTS ON THE ARCS 
FROM THE QUOTAS TO QUOTA GROUPS. 

DEMAND I THE QGNUM=TH QUOTA GROUP. TRiseie 
FOUND BY ADDING ALL THE DEMANDS IN THE QUOTA GROUP. 
Stae NUMBER. INDEX FOR QUOTAS WHICH GIVES THE 
UMULATIVE TOTAL OF QUOTAS IN ALL QUOTA GROUPS 

SoS dae GROUP NUMBER. THIS IS THE INDEX FOR QUOTA 


THIS GIVES THE SPL VALUE FOR THE QOGNUM-TH QUOTA 


STAFFING PRECEDENCE LEVEEE eee GROUPS ARE DEFINED 
AS SEIS OF (ARGsewilln Thess 

SUPPLY SIZE. THIS NUMBER RERRESEND Ge nee lees 
NUMBER OF INDIVIDUALS (BOTH MOVERS AND NON~MOVERS 
IN THE PROBLEM. IT IS READ FROM SUP=SIZE DATAVAD 
GIVES THE ACTUAL NODE NUMBER FOR THE TAIL OF ARC 
NUMBER IARC. THiS 2I5 THE Taree eiS 

TOTAL NUMBER OF QUOTAS IS ALL QUOTA GROUPS. THIS 
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EQUALS THE FINAL VALUE OF QNUM. 
TNUMOQG I*2 - TOTAL NUMBER OF QUOTA GROUPS. THIS IS EQUAL TO THE 
FINAL VALUE OF QGNUM. 
TOTDEM I*4 - TOTAL DEMAND FOR ALL QUOTA GROUPS (ENTIRE PROBLEM) 
UBOUND I*4 - UPPER BOUND ON THE CAPACITY OF THE ARC BETWEEN 


SINK1 AND SINK2. THE VALUE DEFAULTS TO 30000 FOR 
THE MAX FILL PROBLEM, BUT MAY BE LOWERED BY THE 
USER TO GIVE GNET THE ABILITY TO IMPROVE THE FIT / 
BCs COSt, SOLUTION 

X( INODE ) I*4 = GIVES THE SUPPLY (OR DEMAND IF NEGATIVE) 
ASSOCIATED WITH NODE NUMBER INODE. 


4b Ab ob Ob ob ob bot 
OR Ro Ob oF oR oR oF oF 


IMPLICIT INTEGER (A-Z) 
CHARACTER FuNCe, CEMGe 


INTEGER*2 AFLAG,SPL,OOGRP,E2NUM,OE2NUM, DEMAND, QDEM(10000), 
: OGDEM(200) , IDNUM, OGNUM , otek A QNUM, PD an 
2 NUMO(200) ,OGRP( 206) , TNUMO, TN 0621200005, T(90000) , FIT(90000) 


INTEGER*4 SUPSIZ,H(20000) ,c(90000), CP(90000), 8] 
5 INODE, IARC, PcSc(90000) ,NNFSTO, NNLSTO, isa 

2, IQUOTA, ISINKT , TOTDEM, UBOUND, 

REAL ALPHA, CALPHA , QDMAND 


MHE FIRST STEP IN GENERATING THE ARCS AND COSTS FOR THE CAPACI- 
TateD TRANSSORIEMEN?T PROBLEM 25 THE GeNERATION OF THE SUPPLY ARCS. 
THIS IS DONE 3Y FIXING H(L) AND X(L) VALUES FOR ALL OF THE SUPPLY 
ewes (le. PSOPLE.) (WEeGal THe NUMBER OF SUPPLY ARCS WHICH MUST 3E 
GENERATED FROM THE FILE SUPSIZ DATA Al WHICH CONTAINS THE NUMBER OF 
INDIVIDUALS WHOSE RECORDS WERE READ OUT OF THE INVENTORY ILE. WE 
THEN SIMPLY LOOP THAT MANY TIMES GENERATING VALUES FOR H(L) AND X(L). 


READ {39,101) SUPSIZ 
101. FORMAT(IS) 
RRRR BEGIN, TEST PORTION 
WRITE(32,101) 'SUPSIZ =! ,SUPSIZ 
AxAKX END TEST PORTION 
Demon cies bz 

H(I it 

X(T 1 
CONTINUE 


OR 
“hk 


oO 


THE NEXT STEP IN THE PROCESS IS GENERATING THE ARCS THAT RUN FROM 
THE SUPPLY (EACH INDIVIDUAL) TO THE SPECIFIC JOB TYPE, ALSO KNOWN AS 
UOTA". EACH QUOTA IS DEFINED BY ALL DEMANDS SHARING THE SAME 
: NUM AND FMCC. (THAT IS, THE SAME JOB TYPE OR DESCRIPTION AND THE 
SAME PLACE.) THE NODE INDEX IS INODE. THE ARC INDEX IS IARC. 
NOTE THAT THE ARC INDEX BEGINS FROM HERE SQUAL TO 1, BUT THE NODE 
INDEX CONTINUES FROM SUPSIZ WHICH IS THE NUMBER OF SUPPLY NODES. 


Pon ARCs) GENERATED SEIWEEN SUPPLY AND QUOTAS CONSTITUTE THE FIRST 
BoluMN OF ARCS IN THE PROBLEM. FOR EACH OF THESE ARCS WE WILL NEED 
TO ASSIGN THE FOLLOWING INDEXED VARIABLES FOR GNET: H(INODE), 
TAIL(IARC), X(INODE), C(IARC), AND CP(IARC). 


4 OO OR ROR OF OR 
oR OR OR FOF ob FOR OF 


INITIALIZE NODE AND ARC INDICES 
MIOCDE, =" SUPSIZ = 1 
IARC = 1 


= READ AND SET ALPHA VALUE FOR USE IN FINDING FIT/PCS OBJ F'N WEIGHTS. 
READ ue ,402) AFLAG, ALPHA 

102 FORMAT(I1,1%,F4.2 
IF (AFLAG .EQ. 0. oe ALPHA = .99 
CALPHA = 1.0 - ALPHA 


x READ SORTED INFORMATION CONTAINING RAW ARC INFORMATION. 

Pe READ tae ,103,END = 9991) SPL,E2NUM,FMCC,DEMAND,FIT(IARC), 
Sresc( IARC), IDNUM 

103 FORMAT (12, 1X, Ripe bX sy ls, i2,1X,15,1xX,15) 


x IF FIRST ARC IN SUPPLY-QUOTA COLUMN THEN ASSIGN CORRECT VALUES 
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* AND INITIALIZE COUNTERS AND INDICES. 
IF (IARC .EQ. 1) THEN 
* INITIALIZE THE QUOTA AND QUOTA GROUP INDICES. 
: NUMQ(1) = 1 
ee = 1] 
QNUM = 1 
ele = 
INODE) = IARC 
T( IARC) = IDNUM 
X(INODE) = 0 
C(TARC) ==— una ALTA? (oe 1)*2)) + 
G CALPYA*PCSC{IARC) + 0.5) + 
CP(TARC a= ol 
gua (Qatum) | =—SP i 
ODEM(ONUM) = DEMAND 
OGDEM( QGNUM ) = DEMAND 
OE2NUM = =2NUM 
eee = oMee 
| OQGRP = SPL 
x WRITE(34,107) IDNUM,INODE,C(ZIARC) ,CP(IARC) ,X(INODE) 
Oe FORMAT (6X,216,2X,4110) 
ELSE IF (IARC .NE. 1) T 
IF (FMCC .EO. OFMcC). eat 
IF (E2NUM .£EQ0. OE2NUM) THEN 
IF See. .£Q. ceca?) THEN 


NUM 
crane S INT ( AL?! ee Te a 1)*2) ae 
Ge ee ee + OSD 
. Cy 
“ WRITE (34,107) See INODE ,C( IARC) ,CP( IARC) ,X(INODE) 
ELSe2 (SPL NEG OQGRP ) THEN 
INODE = INOCDES ta 
H oes = TARC 
X(INODE) = 0 
T( IARC) = IDNUM 


nou 


CULARC) = ONE See ae 1)*2) ae 
Cc Sera coe aaa + Oo as 
CP(IARC) = 


Q 
ODEM(QNUM) = DEMAND 
GNUM = QGNUM + 1 
OGDEM(QGNUM) = DEMAND 
GRP(QGNUM) = SPL 
UHC? OGNUM) = 1 
* WRITE(34, =e IDNUM, INODE,C(IARC) ,CP(IARC) ,X(INODE) 


ELSE TE ‘UEoNUM .NE. OE2ZNUM) THEN 
IF (SPL .EQ. OQGRP) THEN 
INODE = INODE + 1 


ociuM) = (OGNUM) + 1 
Ben eae = Hana 
(TNODE) ' TARC 
i Li = IDNUM 
elise NTC APH a oe 1)*2)) + 
é CALPHA*PCSC(TARC) + + 
GP (Take) =. 
OE2NUM = E2NUM 
OGDEM(QGNUM) = OGDEM(QGNUM) + DEMAND 
x WRITE (34,107) IDNUM, INODE, cee ,C? (IARC) ,X(INODE) 
ELSE IF (SPL .NE. OOGRP) THEN 
INODE = INODE + 1 


x (TNODE) = 
ee : 
ODEN (ON = DEMAND 
INODE) = IARC 
TCTARC) = 1ONUM 
CC TARG =n ( ALPHA*(1000%( (FIT(IARC)-1)*2)) + 
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See oe ea nr ERS) ce he 10, 


CP(IARC) = 
OE2NUM = E2NUM 
OQGRF = Sri 
NUM = QGNUM + 1 
BCRP (at = SPL 
UM oGNuM = 1 
OGDEM(OQGNUM) = 


WRITE (34, ae IDNUM, INODE, C(TARC), CP( IARC) ,X( INODE) 


ENDIE 
ELSE 7 “(ruc .NE. OFMCC) THEN 
IF EQ. OE2NUM) THEN 
oe “SPL -EQ. 


(obe + 1 THEN 
INODE = INQ 
X(INODE) = 


SUMO = (QGNUM) + 1 
DER CONUI) = Ho’ 
CINODED = TARC 
7 LARC) = IDNUM 
C(IARC) = INT( ALPHA*(1000%( (FIT( IARC) - 1)*2)) + 
CALPHA*PCSC(IARC) + 0.5) + 
CP(IARC) = 1 
OFMCC = FMCC 
QGDEM(QGNUM) = ae DEM(QGNUM) + DEMAND 
aes 107)" TDNUM INODE, ARC) , CP /CR(TARC), X (INODE) 
ELSE IF (SPL .NE. OQGR 
INODE = INODE al 
poe = 
= NUM Sa 
SDEM(O NUM) = DEMAND 
R(INOBE) = IARC 
IARC) = IDNUM 
é IARC INT ( ALPHA*(1000*( (FIT (IARC) - 1)*2)) + 
CALPHA*PCSC (ARC) + 0.5) + 


CP(IARC) = 
OFMCC = FuCC 
OQOGRP = SPL 


NUM = OGNUM + 1. 
GRP (QGN = SPL 
UMQ(OGNUM) = 1 

QGDEM(QGNUM) = DEMAND 
WRITE (34, 107) IDNUM, INODE, C(IARC) ,CP(IARC), X(INODE) 


ELSE IF (E2NUM .NE. OE2NUM) THEN 
IF (SPL .EQ. ae THEN 
INODE = INO 
X(INODE) = 0 


NUM 
C(IARC) = INT( ALPHA* (1900% ( (FIT (IARC) - 1)*2)) + 

CALPHA*PCSC(IARC) + 0.5) + 

CP(IARC) = 1 

OE2NUM = E2NUM 

OFMCC = FMCC 

OGDEM(QGNUM) = QGDEM( (Qaim) + DEMAND 
WRITE (34, 107) IDNUM, INODE,C ae (IARC) X (INODE) 

ELSE IF (SPL .NE. OQGRP 
INODE a INODE + 
ae - 


au + 
SDEM(O N DEMAND 
INODE) = IARC 
Bane = IDNUM 
C(IARC) = INT( Cre Ne Orne) 1)*2)) + 
CALPHA*PCSC(IARC) + 0.5) + 
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CP(IARC) = 1 
OQEZNUM = E2ZNUM 


OFMCC = FMCC 

5 Sen = SPL 
= + 1] 

ecrP( QGN = SPL 
GNUM) = 1 
M(QGNUM) = DEMAND 

WRITE(34, 107)" TDNULE INODE C(TARC), CP (IARC) ,X(INODE) 
ENDIF 
ENDIF 


GQ TO 
S3oi) “CONT THiuE 


a 


arate INITIALIZE THE INDEX FOR QUOTAS AND THE STARTING QUOTA NUMBER 


INODE = INODE + 1 
TNUMO = ONUM 
TNUMOG = QGNUM 


AT THIS POINT, WE HAVE GENERATED THE ARCS IN THE FIRST COLUMN OF * 
THE CAPACITATED TRANSSHIPMENT PROBLEM FORMULATION. THE ARCS WE HAVE * 
MADE GO FROM THE INDIVIDUAL MARINES TO THE QUOTAS TO WHICH EACH OF THE* 
MARINES IS ELIGIBLE TO BE TRANSFERRED. NEXT, WE MUST MAKE ARCS WHICH * 
CONNECT THE QUOTAS [0 THEIR RESPECTIVE QUOTA. GROUPS. SINCE WE WISH TO* 
INCORPORATE A "PROPORTIONALITY OF FILL" CONSTRAINT, WE WILL BE MAKING * 
ADDITIONAL ARCS. BETWEEN EACH QUOTA AND QUOTA GROUP THERE WILL BEA * 
NUMBER OF ARCS EQUAL TO THE DEMAND AT EACH QUOTA. EACH OF THESE ARCS * 
WILL HAVE A COST ON IT WHICH ENFORCES THE PROPORTIONALITY OF FILL * 
CONSTRAINT (WHICH COULD ALSO BE REGARDED AS MAKING ALL QUOTAS WITHIN A* 
QUOTA GROUP SHARE SHORTAGES WHENEVER POSSIBLE.) SEE KLINGMAN AND 
PHILLIPS FOR A MORE DETAILED EXPLANATION OF THE REASONING BEHIND THE 
ADDITIONAL ARCS AND THEIR SPECIALIZED COSTS. 

WE NOW PROCEED TO GENERATE THE SECOND COLUMN OF ARCS. 


a 


NNFSTO = = SUPSIZ + 1 


RRR oS FOR EACH QUOTA GROUP 


RRR LOOK i ao QUOTAS N THE 


O 21 1 = 1,INUNOG 
H(INODE} = IARC 
X(INODE) = 0 
NNLSTQ = NNFSTQO + HE uO! = 1 
UOTA GROUP 
2 J = NNFSTQ,NNLS 


kkk FOR EACH Oe MAKE me Gone ARCS WITH THE APPROPRIATE COST. 


23 


EM(IQ 
ria = “QpeH (FoUoTR) 


8 (ODMAND” ae 1) THEN 


C(IARC) = 
EE IF (QDMAND .NE. 
S Chae = D NE), THEN ecneo.s 5)) + 0.5) 


CP(IARC) = 1 
IARC = IARC + 1 
CONTINUE 


cette ONCE ALL ARCS ARE MADE FOR THAT QUOTA, INCREMENT IQUOTA TO MARK 


Ze 


THE NEXT QUOTA. 
IQUOTA = IQUOTA + 1 
CONTINU 


kek ONCE ALL QUOTAS IN A QUOTA GROUP HAVE BEEN TAKEN CARE OF, SET THE 


Zu 
3 


STARTING NODE NUMBER OF THE FIRST QUOTA IN THE NEXT QUOTA GROUP 
NNFSTQ = NNLSTO +1 
INODE = INODE + 1 

CONTINUE 


AT THIS POINT, WE HAVE GENERATED THE ARCS CONNECTING THE QUOTAS 7 


* TO THE QUOTA GROUPS. IT REMAINS TO JOIN THE QUOTA GROUPS SINK1 AND ** 


Sz 


THEN TO JOIN SINK1 TO SINK2. IN THIS NEXT SECTION OF THE PROGRAM 
WE MAKE THE ARCS CONNECTING THE QUOTA GROUPS TO THE FIRST SINK. 
WE ATTACH COSTS ON THOSE ARCS WHICH WILL ENFORCE THE CONSTRAINT 
THAT, ONCE THE TOTAL NUMBER OF JOBS IS MAXIMIZED, JOBS SHOULD BE 
FILLED IN ORDER OF PRECEDENCE OR PRIORITY LEVEL (SPL). 


ISINKT = SUPSIZ + TNUMQ + 1 
H(INODE = IARC 
X(INODE 

DO 31 


a dh tH OF 
a A A 


I = 1,TNUMOG 
T(TARC) = ISINKT 
CP(IARC) = OGDEM(T) 
IF (OGRP(I) .£0. 1) THEN 


C(TARC) = -4000 
ELSE IF (QGRP (I) .EQ. 2) THEN 
C(IARC) = -30000 
ELSE IF (OGRP(I) .£Q. 3) THEN 
C(IARC) = -20000 
ELSE IF (OGRP(I) .EQ. 4) THEN 
= -{0000 


ELSE IF (OGRE (T) .EQ. 3) THEN 
C(IARC) = 0 


BSINKT Se, ESINKIE pel 
IARC = IARC + 1 
ow CONTINUE 


a NEXT, GENERATE THE ARC FROM SINK1 TO SINKZ2. 


INODE = INODE + 1 
H(INODE) =IARC 
TOTDEM = 0 

- FIND THE TOTAL DEMAND FOR ALL QUOTA GROUPS 
DORs Zs 1, TNUMOG 

TOTDEM = TOTDEM + QGDEM(I) 

22 CONTINUE 

X(INODE) = -(TOTDEM) 

: pene ODE s-— 0) 


NOW READ IN THE UPPER BOUND ON THE TOTAL FILL. NORMALLY WE 
WOULD NOT WANT TO PLACE ANY UPPER BOUND ON FILL SINCE OUR GOAL IS TO 
MAXIMIZE FILL. THUS, THE UPPER BOUND ON FILL, "UBOUND" DEFAULTS TO AN 
ARBITRARILY HIGH NUMBER (30,000). HOWEVER, IT IS POSSIBLE THAT THE 
DECISION MAKER WOULD BE WILLING TO TRADE OFF SOME FILL IN ORDER TO 
Sern AN IMPROVEMENT IN THE FIT OR PCS COST RESULT. IN ORDER TO PERMIT 
foe tne MOREL MAKES PROVISION FOR REDUCING THE FILL ITO SOME USER- 
CONTROLLED UPPER BOUND IN ORDER TO GIVE THE SOLVER MORE FLEXIBILITY 
MiesarROVING THE SOLUTION IN THE OTHER OBJECTIVES. 


READ IN THE VALUE OF THE UPPER BOUND 
BEAD(O2 106) UBOUND 

106 FORMAT(IS) 

CP(IARC) = UBOUND 


THE FINAL TASK IN COMPLETING THE TRANSSHIPMENT FORMULATION 
FORMATTING FOR GNET IS TO MAKE THE ARTIFICIAL ARCS WHICH GO FROM THE 
meeriy ©O SINKZ. EACH OF THESE ARCS WILL HAVE A CAPACITY OF ONE AND 
AN ARBITRARILY HIGH COST (= 99999) IN ORDER TO DISCOURAGE GNET FROM 
SENDING ANYONE ALONG THESE ARCS. 

THE HEAD NODE, H(INODE), AND X(INODE) DO NOT CHANGE, HOWEVER, 
cece: SOUR rR teor COS lToeeND GoareClTiES SACK TO ALL OF THE SUPPLY 
4 e 


IARC = IARC + 1 
wo, 4i, = 1,SUPSiZ 


- 
H 
oo 
OQ? 
it il 


A 


At OO OO 


tee = 
CVEaRe) = 99999 
CP(IARC) = 1 


IARC = IARC + 1 
41 CONTINUE 


x TO LET GNET KNOW THAT WE HAVE FINISHED, WE MUST GENERATE A FINAL 
* HEAD NODE POINTER, H(INODE), WHICH POINTS TO THE TAIL ARRAY AT THE 
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* FIRST PLACE AFTER THE LAST TAIL. WE WILL THEN ASSIGN THE VALUE OF 
z VARIABLE MPL. OF NODES TO THE VARIABLE '"M", AND M+1l TO THE VARIABLE 


M = INODE 
INODE = Nooo sod 
MP1 = 


NODE 
H(INODE) = IARC 
KAKKKKAKKRKKK KKK AKKRKKKERK KKERERK KE RK KRERKERREREKEK RARE RERKERKEREKRKERKKRKER 


x AT THIS POINT, THE ARC LIST IS READY TO BE SENT TO A FILE FOR ** 
xk GNETBX TO READ THE ARCS IN AND SOLVE THE PROBLEM. GNETBX IS CHOSEN ** 
** OVER GNETX SINCE IT ALREADY CONTAINS A SMALL REPORT WRITER. a 
* WRITE IN THE NUMBER OF NODES 
WRITE (34, 108) M 
108  FORMAT(2I 
x WRITE (34,109) 
7109 FORMAT (' FROM =‘ TO COST CAPCTY LOWR-3ND 
* CUPR-3ND' ) 
* WRITE ALL REAL ARCS EXCEPT THE ONE FROM THE POOL TO THE SINK. 
DO 70 I=(SUPSIZ + 1). {ENO ODE - 2) 
DO 70 3 = H(I), (H(I#1)-1) 
WRITE (34,107) Fs). I, (3), CP(J),0,0 
70 CONTINUE 
* NOW WRITE THE LAST REAL ARC; THE ONE WITH THE VARIABLE UPPER BOUND 
WRITE (34,107) (M-1),M,0,UBOUND,0,0 
* NOW WRITE THE ARC FROM THE SINK TO THE SUPER-SINK 
WRITE (34,107) M,(M+2),0,SUPSIZ,0,;0 
* NOW WRITE THE ARCS FROM THE SUPER-SOURCE TO THE SUPPLY NODES 
7i P= I surest 
WRITE(34,107) (M+1),2,0,1,0,0 
Ta CONTINUE 
* NOW WRITE THE ARC FROM THE SUPER-SOURCE TO THE SUPER-SINK 
WRITE (34,107) (M+1), (M+2) ,99999, SUPSIZ,0,0 


RREKEKRREKARKAKRKRKKRKRAKERKRKRKRRERRRRAKRKKKRRAKKRKERKRKKKRKKRREKEKRRERKERKRKKRRKREKKERER 
x THE NEXT TEST PRINTOUT IS DESIGNED TO CHECK THE VARIABLES THAT * 
* HAVE BEEN GENERATED FOR FITNESS INTO GNETX FORTRAN. SINCE GNETX IS * 
* NOT USED IN THE PROTOTYPE, THE TEST HAS BEEN COMMENTED OUT. * 
* IT IS NOT DELETED SINCE A FUTURE SNHANCEMENT MAY WISH TO MAKE USE OF * 
_* THE INCREASED FLEXIBILITY OFFERED BY GNETX, | * 
eI 

**k = BEGIN TEST OUTPUT 
* WRITE (32, 2 ! 'M, MP1 = ' MP1 
x WRITE (32,*) ‘INODE = ' MODE, IARC = ', IARC 
x WRITE (32,104) TNUMQ, TNUMOG 
*104 FORMAT ('TNUM TNUMOG = ',12) 

WRITE (32,*) ‘INDEX 40%) X(M) T(N) FIT(N) PCSC(N) C(N) CP(N) QDE 
cxt(Z) aQgEM (a) QGRP(T) NUMQ(T) 


WRITE (32,105)I,H 
C,QDEM(T) , QGDEM(I), 9 
105 FORMAT(5I5,I10,16, 
*433 CONTINUE 

x END TEST PORTION 


* eee eee NUMBER OF ARCS SOUGHT, REDUCE IARC BY 1 x 
Ne 
TAD 
TOD 
NSA 
ISA 
A = 
IHS 
MAXC 
ISUP 
IBIG 
MBIG 
NNE 
NNS 


oT 
CL oun. oe wy PCSC(1), Cll seem 
GarEWl):, 
Seo eo 


uoshkiuda 


1000000000 
= 
= 
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iG = 1 
NAP = -l 
IPTG = 3 


TOU 5 
kkk = BEGIN TEST OUTPUT 
* oARITE (32, °791) IND,IAD,IOD,M,H(M),T(M),C(M),CP(M), 


* 
*791 FORMAT ( ! IND eee b= bee ton =! 13) 8 w=", 13)! H(M) =',13 
* Cen) =! 13, oUt) = tee ob (M) = oe M m3) 
* WRITE (06 ba | PINISHED ' GENERATING ARCS FOR THE NETHORR' 
OTO 


*6666 CALL GNETX (IND, IAD, 10D,M,H,T,C,CP,X,CPX,P,D,IT,U,NSA, ISA,A, IHS, 
CIBIG,MAXC,ISUP,MBIG,NNE,NNS,IPG,NAP, IPTG, IOUT, IER, ISCALE, IPVT) 

7977 CONTINUE 

AxXK CERTAIN INFORMATION MUST BE SENT TO A FILE FOR USE IN = ***xx 

*kkKKK ANALYZING THE FINAL GNET SOLUTION. (FN = NET-INFO DATA) AeRRK 

nr ,771) TNUMOG, TOTDEM 

771 FORMAT(2I10 

| posse JJ =e 

* ee aan. "2) "TNUMOG/ 33 /OGRP (J3) /OGDEM(JJ)' ,TNUMOG , JJ,OGRP(JJ) , OGDEM 


* 
WRITE(27,772) OQGRP(JJ),QGDEM(JJ) 
772 FONMAT oT 40) 
888 CONTINUE 
ARKR NEXT, SEND THE NUMBER OF QuOTA GROUPS TO A FILE WHICH = **x*x 
xkAKK WILL EXTRACT THE FLOWS FROM EACH OF THE QUOTA GROUPS TO THE ***** 
kkAKK POOL. (FN = TNUMOG DATA) Hk AH 
WRITE (28, 773) TNUMQG 
773 FORMAT(I10) 
STOP 
END 
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APPENDIX S 
GNETBX FORTRAN 


1 PROGRAM TO SOLVE THE CAPACITATED TRANSSHIPMENT 
PROBLEM 


RERKKRRRKRRAKRAR RRR KKK RRR KR RRR KARRRRRRARRRERKRRKEK 
* 

x ke k PROGRAM NAME: GNETBX FORTRAN x ke kK R : 

KK KR KR KR KR KR KR KR RR KH KR KR KR KR KR KR KR KR KR KK RK KR KKK Ke Kr Ke KK KX 


»%- 


x * k OVERVIEW AND PURPOSE ns 


GNETBX CONTAINS THE PROGRAM GNETB FORTRAN, AN OPTIMIZATION 
SOFTWARE COPYRIGHTED IN 1975 AND 1983 Ema 


GORDON H. BRADLEY, NAVAL POSTGRADUATE SCHOOL, MONTEREY, CA 93940 
GERALD G. BROWN, NAVAL POSTGRADUATE SCHOOL, MONTEREY, CA 93940 
GLENN W. GRAVES, UNIVERSITY OF CALIFORNIA, LOS ANGELES, CA 90024 


FOR INFORMATION CONTACT GLENN W. GRAVES 
3642 SEAHORN DRIVE 
MALIBU, Ca, 30Z6osUsn 


FOR AN EXPLANATION OF THE DESIGN OF THE PROGRAM, SEE: 


BRADLEY, G., BROWN, G., AND GRAVES, G. 

'DESIGN AND IMPLEMENTATION OF LARGE SCALE PRIMAL TRANSSHIPMENT 
aLGORT IAMS, | 

MANAGEMENT SCIENCE, VOL. 24, NO. 1 (SEPT. 1977), PP.1-34. 


4 A 


GNETBX EXTRACTS CERTAIN FLOW VARIABLES FROM THE SOLUTION OF 
GNETB AND OUTPUTS THEM TO FILES WHICH ARE USED IN THE PRESENTATION 
OF THE SOLUTION TO THE DECISION MAKER. 


REAKKEKKKKAKKRKKAKRKKRRKKRKRRKERRKERRERRRKRAAKRRREKRRRERERERERKERRRRREKARKRRRAKRRKKKAKK 


RR OR RR OR Ro ob OR Ob oR oR ob ob ob ob ob a of of oR ok oF 


ee ek Rb RRR RR OR RR RR DR oe ob ob OF 
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ie 


OR RO OO OOO OO EAHA HEHE HER 


APPENDIX T 
SUMMARY FORTRAN 


PROGRAM FOR SOLUTION PRESENTATION AND PROBLEM 
MODIFICATION 


* 


x % PROGRAM NAME: SUMMARY FORTRAN coe ~ 


Ax Xx OVERVIEW AND PURPOSE * * * 


Pio nocaate PRESENTS A SHORT SUMMARY OF THE SOLUTION TO THE 


USER AND 


FILEDEF 
og ; 


O02 


cc cee. « TK 6 SK Re KR Kee K HK KOR OX 


ADJTCF 


Pecmteoe nim [0 MAKE CHANGES iN THE PROBLEM IN THREE WAYS. 
eno te ey COANGCE THE PRIORITY OF THE FIT AND PCS COST 
SEJECTIVES. 
maeeoOLULITON IN ORDER TO ALLOW MORE TIES FOR THE IMPROVEMENT OF THE 
mi Peo COST OBJECTIVES. 
FACTOR (TCF) 8Y ADJUSTING A TCF ADJUSTMENT FACTOR. 
ARE HANDLED BY THE SUBROUTINES CHGWTS (TO CHANGE THE WEIGHTS OF THE 
BIL/PCS OBJECTIVES), CHGFIL (TO LOWER THE fILL), AND CHPLCY (TO 
CHANGE THE POLICY REGARDING TCF'S.) 
BES ELON 
DOCUMENTED WITHIN THE PROGRAMS. 


cece cee Kerr ee ee ke xe kK KK KKK KR KR KR KER KR RE KR KR RRR 


SECOND, HE MAY REDUCE THE SILL BELOW THAT ACHIEVED IN 


THIRD, HE MAY CHANGe THE TOUR CONTROL 
THESE CHANGES 


THESE ROUTINES CONSIST MOSTL 
FORMATTING. EXPLANATIONS OF SIGNIFICANT S&CTIONS ARE 


xkk FILE DEFINITIONS *** 


SEP ODEN ET Le 2Carion 
ALPHA DATA 
UPPR-BND DATA 


BESTNUM DATA 
TCF-ADJ DATA 
TERMINAL SCREEN 
SUPSIZE DATA 
NET-INFO DATA 
SUMMARY INFOL 
ALPHAX DATA 
TCFXADJ DATA 


PURPOss 


Penmtos LOWERING FILL 20 IMPROVE 
bit PeESeCOST OBJECTIVES 

RECORDS MAX rILL OF ANY SOLUTION 
CHANGE IN TCF (MONTHS) | 
BLSEEAY OUTPUT TC USER 

Givbo se ChAL) SUPPLY IN) INVENTORY 
INFORMATION ON NETWORK STRUCTURE 
INFORMATION ON NETWORK SCLUTION 
Petes cORES USER INPUT “ALPos 
WEMP STORES USER INPUT TCF abDJ 


eaSeales DEFINITION OF TERMS easeates 


AGUS Mew. LO TCs INPUT BY USER 

USED TO CHANGE RELATIVE WEIGHTS OF FIT/PCS OBJECTIVES 
NUMBER OF INDIVIDUALS NOT MATCHED TO 3ILLETS 
APPROXIMATION OF THE AVERAGE FIT ACHIEVED IN THE SOLN 
THE TOTAL COST OF THE SOLUTION (USING WEIGHTS AS COSTS) 
SOME UNE Dal / PCSSOBJECTIVES "COST" 

tabs aow. GN 2ACa Seb 

END Eieeson of 

THE NEW USER-INPUT UPPER BOUND ON FILL 

NUMBER OF BILLETS OR DEMANDS IN EACH SPL 

BVEREGE CS) GOsl OF THE SOLUIION. 

PERCENTAGE OF AUTH BILLETS (NUMBIL) THAT WERE FILLED 
PERCENTAGE OF INVENTORY THAT WERE NOT MATCHED 

DEMAND AT EACH QUOTA GROUP 

ACTUAL FLOW (= NUMBER OF MATCHES) THROUGH A QUOTA GROUP 
THE SPL ASSOCIATED WITH A QUOTA GROUP 


ay 


Sees eRELALTIVE FIT/PCS COST PRIORTY 


Roe cok Ki ROK KK KR KOR 


x 
* 
~ 


RK RR RRR KR KR RRR KR KR RRR KR KR RK RRR KK KKK RK KR RK 


AAA AAA AAD A REBAR DBA DA BEA AMADA ADA ASD 


HAHAHA A AAA AAAAAAAAAAAA 


* REPLY/2/3 USER RESPONSE VARIABLES * 
* SUPSLS TOTAL NUMBER OF PEOPLE IN THE INVENTORY x 
* TNUMQOG TOTAL NUMBER OF QUOTA GROUPS * 
*  TOTDEM TOTAL DEMAND AT ALL QUOTA GROUPS * 
ere ere PERCENT OF BILLETS (DEMAND) FILLED * 
* ie Gare PERCENTAGE OF OFFICERS ALLOCATED * 
: TRUFLO TOTAL FLOW (FILL) IN ALL QUOTA GROUPS 3 
* * 


KRREKERKRKRRKERAKRRRRERERERRRRRRKRRERRERERRRARRRARRRRRRRRRERRERKRERRERRRRRRRRERE 


INTEGER TRUFLO,ARTFLO,TNUMOG ,OGFLOW(5) , TOTDEM,QGRP(5) , OGDEM(5) 
,ISPL,NUMBIL(5) ,>LOW(5),SUPSIZ.NEWBND ,ADJTCF 
EST COST , PCTFIL(S) , TPCT? .TECTUT, 2CSC, PCTXCS , AVEFIT, ALPHA 
| CHARACTER REPLY, REPLY2, REPLY3 
* INITIALIZE ALL ARRAY ZLEMENTS TO 0 
a 


NUMBIL(Z) 
FLOW(I) = 
CONTINUE 
READ IN VALUE FOR LSTBST 
READ (03,187) LSTBST 
187 FORMAT(IS 
* READ PRESENT UPPER SOUND FROM UPPR-BND DATA FILE 
READ (02,187) UPRBND 
® READ PRESENT ALPHA VALUE FROM ALPHA DATA Al. 
READ (01,188) ALPHA 
188  FORMAT(2X,F4. 
x READ PRESENT TOUR CONTROL ADJUSTMENT FACTOR 
READ (94, 189) ADJT ! 
189 FORMAT(I2) 


* READ IN THE TOTAL NUMBER OF QUOTA GROUPS AND THE TOTAL ASR DEMAND 
Rea ee TNUMQG , TOTDEM 
70n FORMAT (21 
* READ IN THE SPL TNUMOG DEMAND Benen ASSOCIATED WITH 2Aeo 
: DO = 
READ (35, 701) QGRP(I) ,QGDEM(T) 
10 CONTINUE 
* READ IN THE TOTAL FEASIBLE FLOW (TRUFLO), Ae FLOW, AND COST 
READ(38,702) TRUFLO,ARTFLO,COST 
702 FORMAT (2110, FI2si) 
* READ IN THE ACTUAL FLOW FOR EACH QUOTA GROUP 
DO 20 I = 1,TNUMOG 
at ae OGFLOW(T) 
703 FORMAT (210) 
20 CONTINUE 
READ(C20 704) oersia 
704 FORMAT Cas) 
* SET VALUES TO BE READ INTO SUMMARY CHART 
a 


Arca 


PL 
DO 40, ao 

771 IF (QorP(t) EO: ISPL) THEN 

NUMBI mons ) Aen 

FLOW(ISPL) = QGFLOw(T) 

TSPi, =o Seu 
| ELSE IF (OGRP(T) oe. ISPL) THEN 
* NUMBIL(ISPL) 9 
x FLOW(CISEL,) = 
* QGFLOW(ISPL) 0 

ISEL = 2Serace. 

GOTO 771 

ENDIF 

40 CONTINUE 
as WRITE (06,%* 
x DO 50 J 
* 
x 


WO 
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“ RTENUE 
*50 a TINUE 
OK =1,5 
60 CONTINUE 
* a SUMMARY INFORMATION 


Cre ay 
O}S * (NUMBIL (1) .NE. 0) PCTFIL(I) = REAL(FLOW(1I))/REAL(NUMBIL(T) ) 
70 CONTINUE 
Teele e— oN ae. 
Teens REAL (TRUFLO) /REAL(SUPSIZ) 
PCTXCS = 0.0 


TF _(ARTFLO .NE. 0) PCTXCS = REAL(ARTFLO)/REAL(SUPSIZ) 
FITPCS = (((COST- cf (ARTELOS99999)#( FLOW (1)*40000)+ (FLOW (2) *30000) 
C+(FLOW(3)*20000)+ /TRUFLO) -100) 


FEW 4amaQore (0. S*TRUFLO) ) 
PCSC = FITPCS/(ALPHA-1 
AVEFIT = FITPCS/ALPHA 


*x WRITE eles OF SUMMARY TO SCREEN 


| 1 
WRITE(O6,*) ' | 
WRITE(06,*) ' | 
WRITE(06,*) ' | 
WRITE(O6,*) ' ! 
WRITE(O6,*) ' | 
WRITE(O06,*) | ! 
WRITE(06,*) ' | 
WRITE(OG, io , 
WRITE(06,*) ! 

Ginar (2 tor? 
101 FORMAT 5 none GNET SUCCESSFULLY TERMINATED * 


eee ee rat I | 

WRITE(06,*) '! kk * dome x *& xi 
J 
i 
j 


x *& KARR x & KI 
I 


WRITE(06,* 
G6 


Bate 06, * SCROLL TO NEXT PAGE FOR SOLUTION S 


Beg WRITE ( 


9789 WRITE( 


102 FORMAT SUMMARY OF SOLUTION’ ) 
) 


103 FORMAT 7 
Be) 


C 
WRITE (06,104 
104 me ( STAFFING | NUMBER OF | NUMBER OF | PERCENTAGE | 


C AVERAGE | AVERAGE |') 


oe tei oe 105) 
105  FORMAT(' { PRECEDENCE | BILLETS | BILLETS | OF BILLETS | 
Cc FIT PCS {') 
WRITE (06 , 106) 
106 FORMAT(' [ LEVEL | AUTHORIZED | FILLED | FILLED | 
C Vv t | COST |') 
WE ITE (06 107 


OK FORMAT 


BOrs0 I 5 
WRITE (06 | 108) I ne a FLOW(T), PCTFIL(T) 
108 Boer | ‘ 17 ; oe \" 8,6x,'|',18,5X,'|!,3X,F5.3,4X, || N/ 


90 CONTINUE 
WRITE (06,107) 
* WRITE (06, 116) 
116 FORMAT(' | | 


| See ee | 


139 


109 


eS 


Lie 
py 
TZ 
ii 
114 


ee 
993% 
1ic 
ae 
LZ0 


Sal 
120 


S22 
b2Z 


a23 
123 


924 
124 


325 
£25 


126 


Bo 
556 


| ee 
WRITE (06, 109) _TOTDEM, TRUELO , ey Fa PCSC 


FORMAT (" | TOT [i538 /6X,'|',18,5X%,'1',3X,F5.3,4%,'|" 4x oe 
Gz) 3X, ' ("sx noe 7 ux. 5 | 
WRITE (06 115) 
FO RMAT(' f 
OL htt tsti—<Cs~—~—s 


WRITE(O i 
WRITE (06,110) SUPSIZ 
FORMAT(' TOTAL NUMBER OF OFFICERS IN INVENTORY :',I6) 
WRITE (06,111) TRUFLO 
FORMAT(' TOTAL NUMBER OF OFFICERS ALLOCATED : SES) 
_WRITE (06, t2Z) ae enue 
RMAT (' PERCENTAGE OF OFFICERS ALLOCATED :',1X,F5.3) 
“WRiTe (06,113) ARTFLO 
RMAT(' NUMBER “OF OFFICERS NOT ALLOCATED ;", 16) 
WRITE (06, 114) P XCS 
FORMAT ( | SERCENTAGE OF OFFICERS NOT ALLOCATED :',1X,F5.3) 
WRITE(06,*) | ! 
WRITE(06,*) ' ! 
WRITE(06,*) ' ! 
WRITE(06,%*) | 
WRITE(06,%*) | | 
WRITE(06,%) | ! 
WRITE(06, | 
WRITE (06, 117) 
FORMAT ('! YOU MAY NOW CHANGE THE STAFFING PROBLEM. 1) 


WRITE (06, 118) 

FORMAT PLEASE CHOOSE ONE OF THE FOLLOWING OPTIONS:' ) 
“WRITE(06,%) 1 
WRITE (06, 119) 

FORMAT (' ENTER KEY IN ORDER TO :') 
WRITE(06,120) 


FORMAT (! 

a l ) 
WRITE(06,121) 
FORMAT (' 1 CHANGE THE PRIORITY OF THE FIT AND PCS COST 
C OBJECTIVES ') 

WRITE (06,122) 

FORMAT (' 2 ALLOW THE FILL TO BE REDUCED TO IMPROVE FIT 
C OR PCS COST’) 

WRITE (06,123) 

FORMAT (' 3 CHANGE THE TOUR CONTROL FACTORS DETERMINING 
C WHO MAY MOVE') 
WRITE(06,124) 
FORMAT (' VIEW THE SOLUTION TO THE MOST RECENT PROBLE 


C 
WRITE (06, P25) 
FORMAT 


a 

READ(Q5 eee REPEY 

FORMAT (A 

Te REDtY : a ') THEN 
Poe 5) UPREND 


SSG: 556) 1 ALPHA 
FORMAT(I1,1X,F4.2) 
GOTO 5ag7" 
LSE IF (REPLY .EQ. '4 ') THEN 
GOTO 9789 
ELSE IF (REPLY .EQ. '3 ') THEN 
ELSE IF (REPLY CE iat THEN 
S 
CALL cHGPIE(TRUFLO, NEWBND , LSTBST , UPRBND ) 
ELSE IF (REPLY . gO ') ‘THEN 
CALL CHGWTS aeea ,LSTBST) 


SE 
PTT E NOG, *) 'ENTRY ERROR. PLEASE RE-TYPE YOUR OPTION CHOICE. ' 
Ate 9997 
ENDIF 


QUIT') 


* ONCE THE USER HAS MADE ANY DESIRED CHANGES TO THE PROBLEM HE MAY 
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* ELECT TO RUN IT AGAIN. 
9987 WRITE (06, 127) 
127 FORMAT ( DO Fait WISH TO MAKE ANY MORE CHANGES? (Y/N)! ) 
READ(05,126) REPLY2 
IF (REPLY? EQ. 'Y!') THEN 
GOTO 9997 
ELSE IF (REPLY2 .EQ. 'N') THEN 
9988 WRITE (06,128) 
128 FORMAT(' ‘DO YOU WANT TO RUN THE MODEL AGAIN? (Y/N)') 
BERD (OS) 126) REPLY3 
IF (REPLY3 .EQ. 'N') THEN 
129 FORMAT (I2) 
GOTO 9999 
ELSE IF (REPLY .£Q. '¥') THEN 
WRITE (41, 555) UPRBND 
WRITE (42,556) 1,ALPHA 
GOTO 9999 


SE 
WRITE(06,*) ' INPUT ERROR. PLEASE TRY AGAIN.' 
GOTO 9988 
ENDIF 


SE 
WRITE(06,*) ' INPUT ERROR. PLEASE TRY AGAIN.' 
GOTO .2367 


ENDIF 
B999 CONTINUE 

SLOr 

END 
KAR RKKKAKK REAR AK KKK RK KKK REAR IK RARKRAKKARK KKK RARER RR RERRAKK REAR RAR RR 
ose SUBROUTINE CHGFriL RST ir 


KKK KRENEK RRR KRRKRKRKKKRER 
x 


‘THIS SUBROUTINE PERMITS THE USER TO LOWER THE UPPER BOUND 
ON THE NUMBER OF PEOPLE THAT CAN BE ALLOCATED IN A GIVEN 
PROBLEM SOLUTION. 3Y REDUCING THE NUMBER OF BILLETS THAT CAN 
BE FILLED, IT INCREASES THE NUMBER OF TIES AVAILABLE FOR 
IMPROVING THE FIT AND PCS COST IN THE SOLUTION. 


DEFINITION OF VARIABLES 


INDEX - INDEX NUMBER ASSIGNED TO FMCC OR PMCC 
nee - MCC CODE WHICH IS MATCHED TO AN INDEX NUMBER IN THE 
MCCNUM DATA FILE 


KRREKKKKRKKRKKKKKRKRKREKRKRRKKKRKRKRKRRRKRKKRKRKRKRKRKRKRRERKRRKRKRKKAKRKRKRRRRKRKRRARKRKKRRRAKRRERRER 


REEEKKKERKRREKERK DECLARE, DIMENSION, AND INITIALIZE KRAKKKKRKRKKKKEARKE 


SUBROUTINE CHGFIL(TRUFLO,NEWBND,LSTBST,UPRBND) 
PIT eCER ones 0, UPREND, CST8S7 
CHARACTER REPLY1,REPLY2,REPLY3 
CHARACTER*6 LBOUND 
READ BEST FILL SOLUTION SO FAR (= THE UNCONSTRAINED SOLUTION FILL.) 

IF THE UPPER BOUND IS AT ITS INITIAL VALUE OF 30000, THEN THERE [5 
NO CONSTRAINT ON FILL, AND THE ONLY OPTIONS FOR THE USER ARE TO 
LOWER THE UPPER BOUND OR TO LEAVE [IT ALONE. 

IF, HOWEVER, THE UPRBND HAS BEEN LOWERED (AND NOTE THAT THE ONLY 
mace 1. CAN BE MOVED TO IS SETWEEN) 0 SND THE BEST, UNCONSTRAINED 
FILL VALUE), THEN WE MUST GIVE THE USER THE OPTION OF SETTING A NEW 
VALUE BETWEEN THE LOWER AND UPPER BOUNDS, QUITTING, OR RESETTING THE 
INITIAL UNCONSTRAINED BOUND. 


MESSAGE TO USER IF NO UPPER 3OUND HAS BEEN ENFORCED YET 
IF (UPRBND .EQ. 30000) THEN 
WRITE (06,103) 
103 FORMAT 
C ' THE PRESENT SOLUTION MAXIMIZES THE TOTAL FILL IN ALL BILLETS',/ 
C ' BEFORE ATTEMPTING TO IMPROVE THE FILL OF A PARTICULAR SPL OR',/ 


A HH aa 
4 A OH HaHa 


+ FHA AHA AHH 


14} 


104 


Gs 


V2e 


106 
LOW 


L108 


-105 
LO 
babes 
vZ3 


9001 
LZ 


C ! OBTAIN A BETTER FIT OR PCS COST. THEREFORE, THE FILD thar 
Seige TRUFLO 


eS ' WAS ACHIEVED IN THE PRESENT SOLUTION, ',1I5,', IS THE MAXI 
ee cenoee 
FORMAT 


C ' NUMBER OF BILLETS THAT CAN BE FILLED UNDER THE POLICIES THAT’ ,/ 
C ' WERE CONSIDERED. IT MAY BE POSSIBLE TO IMPROVE THE FIT AND', 

C ' PCS COST OF THE SOLUTION BY ALLOWING FOR A SLIGHT REDUCTION Ui / 
C “SIN THE Fille ORDER TO DO THIS, WE CAN SET A MINDMUM se 

C ' ACCEPTABLE FILL LEVEL WHICH MUST BE ACHIEVED. ) 


FLAG = 0 
LBOUND = ' NONE '! 
WRETE( OG) 7 
IF (FLAG . coon nol an 
Sane 20) eens 
Caan PRESENT MINIMUM S21 LEVEE CURRENT FiL 


a alee Go 
BERGE 26 <i Fis LAG oO) oe 
WRITE(06,121) LBOUND, TRUFLO 


BE Ba ORESENT MINIMUM FIT LEVEL: , Ace CURRENT FILL 
BNDLS 
WRITE (06, 106) 

FORMAT (//,' ENTER KEY _ IN ORDER To :!') 
WRITE(06,107) 

Se 


ad 


- L) 
EEE SERS 


ae £5) ENTER A MINIMUM FILL LEVEL THAT £5 eae 
WRITE. 06 , pale!) 

FORMAT 
WRITE 06, 110) TRUFLO 

FORMAT 2 
WRITE 06,111) TRUFLO 
ORMAT (' S 


ChGiay ta ee) 
WRITE 06, 123) 
ORMAT 


WHICH MIGHT IMPROVE THE FIT OR PCS COSiaam 
REMOVE OR CHANGE AN OLD BOUND ON FILL.') 
QUIT THIS OPTION AND RETURN TO THE MAIN ME 


F NO ADDITIONAL CHANGES.') 
READ (0 312) REPLY1 
FORMAT (A) | 
IF ( (REPLY -EQ. 'N') .OR. (REPLY1 .EO. "D'98) DHE 
WRITE (06 x) 
GOTO 3001 
ELSE IF (REPLY1 .EQ. '9') THEN 
WRITE (41, 333} UPRBND 
WRITE(42,556) 1,ALPHA 
PORMAT(I ms) 
FORMAT(I1,1%, 74.2) 


: RETURN 
ELSE IF ((REPLY1 .EQ. '2') .OR. (REPLY1] 7207071) @ Mae 


WRITE (06,113) 
FORMA ENTER ee Y IN ORDER TO :') 


-— 
~~ 
“~~ 


a 

“—FETTETOS, 115) TRUFLO 

RMAT (' PUT A NEW LOWER BOUND ON FILL.') 
WRITE (06, 136) 


FORMAT ( ' REMOVE ALL BOUNDS ON FILL AND RETURN TO TH 
Ch olaole MENU. =) 
Eee 
ORMAT RETURN TO THE LAST MENU WITH NO CHANGES.') 
READ(05,112 REPL 


¥3 
IF (REPLY EQ. '9!) THEN 
GOTO 9002 
ELSE IF (REPLY3 .£Q. '2') THEN 
WRITE(41, iia) 30000 
UPRBND = 30000 
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177 FORMAT (12) 
LBOUND = 'NONE' 


FLAG = 0 
GOTO 9002 
ELSE IF (REPLY3 .EQ. '1') THEN 
WRITE(06,*) ' PLEASE INPUT NEW LOWER BOUND ON FILL. ! 
9005 - WRITE (06 T1'9) LSTBST 
119 FORMAT y *k REMEMBER, YOUR BOUND SHOULD LIE BETWEEN 0 AND |, 
crs, 
READ (05 102) NEWBND 
IF ((NEWBND .LT. 0) .OR. (NEWBND .GT. LSTBST)) THEN 
WRITE (06 , * ) x * * ERROR! NUMBER OUT OF BOUNDS. 


CPLEASE TRY AGAIN * * 
at 9005 


UPRBND = NEWBN 
WRITE(41,102) NNEWBND 
EO2 FORMAT (I5 
WRITE(06,122) UPRBND 
iz > FORMAT (12 
ZZ FORMAT ( ' NEW BOUND ON FILL = ',15) 
FLAG = l 
GOTO 9002 
ENDIF 


WRITE(06,*) | ENTRY ERROR. PLEASE TRY AGAIN. ' 
GOT 
ENDIF 


E 
WRITE(06,*) ' ENTRY ERROR. PLEASE TRY AGAIN. ' 
GOTO 9002 

ENDIF 


ELSE IF (UPRBND .NE. 30000) THEN 
FLAG = 1 


* PRINT INTRODUCTION 
WRITE (06,124) 
124 FORMAT( 
C ' IT MAY BE POSSIBLE TO IMPROVE THE FIT AND PCS COST OF THE ',,/ 
C ' SOLUTION BY ALLOWING FOR A SLIGHT REDUCTION IN THE FILL. Gy 
C ' IN ORDER TO DO THIS, WE CAN SET A MINIMUM ACCEPTABLE LEVEL',/ 
e eee ejas WHICH MUST BE ACHIEVED FIRST.') 


eo? RETURN 


END 
KRAKAKKKKAKKKEKRKEREKRKAKEKRKEKRRERKEKERKEKEKERKRRRKKERKEERERRRRRKRRKERRKEREKRRRKRRRRRRRRERERE 


/ 


Ka RKK SUBROUTINE CHGWTS RRR 
FF KK KARR KKK REKRKKKERRERERKRRREREKKKRKRRAEERE 
* * 
* THIS SUBROUTINE PERMITS THE USER TO CHANGE THE WEIGHTS ON * 
THE OBJECTIVE FUNCTIONS FOR FIT AND PCS COST. 2 
* ms 
: DEFINITION OF VARIABLES ; 
* * 
* * 
* INDEX - INDEX NUMBER ASSIGNED TO FMCC OR PMCC x 
* MCC - MCC CODE WHICH IS MATCHED TO AN INDEX NUMBER IN THE * 
i MCCNUM DATA FILE i 


ARKEKRKKKKAKKKKREKKKEKKRKKKRKEKKRKREREREKRKERERERKERAKRKRKREKREREREREKRKERERERERERARRREARRKKR 


KRERKEKKRAKKKRKKKEE DECLARE, DIMENSION, AND INITIALIZE KEAKKAKKAKKKKKKE 


SUBROUTINE CHGWTS (ALPHA,LSTBST) 
INTEGER TRUFLO, UPRBND,LSTBST 
REAL ALPHA 

SUARACTERSREP Ey) REPLYZ, REPLYS 
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4 AHwAAAHA AD 


103 


104 


105 


dz 
S00r 
its 


LOL 


32 


IF THE UPPER BOUND IS AT ITS INITIAL VALUE OF 30000, THEN THERE IS 
NO CONSTRAINT ON FILL, AND THE ONLY OPTIONS FOR THE USER ARE TO 
LOWER THE UPPER BOUND OR TO LEAVE IT ALONE. 

IF, HOWEVER, THE UPRBND HAS BEEN LOWERED (AND NOTE THAT THE ONLY 
PLACE IT CAN BE MOVED TO IS BETWEEN O AND THE BEST, UNCONSTRAINED 
FILL VALUE), THEN WE MUST GIVE THE USER THE OPTION OF SETTING A NEW 
VALUE BETWEEN THE LOWER AND UPPER BOUNDS, QUITTING, OR RESETTING THE 
INITIAL UNCONSTRAINED BOUND. 


MESSAGE TO USER IF NO UPPER BOUND HAS BEEN ENFORCED YET 


IF (ALPHA .EQ. .99) THEN 
WRITE (06,103 
FORMAT 
C ' THE PRESENT FORMULATION WILL SOLVE FOR FIT FIRST, BEFORE IT ',/ 
C ' ATTEMPTS TO MINIMIZE PCS COST. ',/ ) 
ELSE IF (ALPHA .EQ. .01) THEN 
WRITE (06,104) 
FORMAT 


C ' THE PRESENT FORMULATION WILL MINIMIZE PCS COST FIRST, BEROREaam 
C * ATTEMPTING TO MAaAIMIZE Sn tie, ) 
ELSE IF (ALPHA .EQ. .50) THEN 
ae 705) 
FORMAT 
C ' THE PRESENT FORMULATION WEIGHIS THE FIT AND PCS COST a. 
C  FOBJECTIVES BOUREI as ./7) 


ENDIF 
WREOE(OGre ss) 
FORMAT 
C ' PLEASE CHOOSE ONE OF THE FOLLOWING OPTIONS: 37) 
WRITE(06,106) 
FORMAT ie ENTER KEY IN ORDER TO :') 
WRITE 06 pO) 
RMAT 
Cc ! J 
wR e108) 
ag 1 SOLVE FIT FIRST BEFORE MINIMIZING PCS COSE 
WRITE(06,110) 
FORMAT ( ' 


WRITE(06,111) 


= 


rO 


MINIMIZE PCS COST BEFORE MAXIMIZING FIT.') 


ee 3 WEIGHT BOTH FIT AND COST OBJECTIVES EQUALL 
Savar(n 

FORMAT ('! 9 QUIT WITHOUT CHANGING PRESENT ORDERING OF 

COBJEGIIVES..) 

READ(05, 113) REFLY= 

FORMAT (A) 


IF (REPLY1 .EQ. '1') THEN 
WRITE 42, M1) 1,'0.99! 
FORMAT (I1,1X,A4) 
RETURN 
ELSE IF (REPLY1 EQ. '2') THEN 
WRITE(42,101) 1,'0.01' 
TURN 


RE 
ELSE IF (REPLY ae ere THEN 
WRITE (42, 101) 1 oO 


RETURN 
ELSE Dr REPLY i bOee so pa raen 
RETURN 


E 
WRITE (06,*) '! ENTRY ERROR. PLEASE ANSWER AGAIN. ' 
GOTO 7777 
ENDIF 
RETURN 


END 
RRAAKARAKRRKARKERARK KKK KKK KAKA RKAAR KH R KH KKAAKARKAKKAKKRKRKKKREAKKRKKKKK AK KA 


AREEKK 


BROUTINE CHPLCY RRRKR 


SU 
KRKAERKAKKKKKKKEKKAKKKAKAKKRKAKKKKAKKKKKKAARARKARAKKEKKEKKEKKRKARKAKKKAKRKKAKERKAA 


* 
* 


* 
THIS SUBROUTINE PERMITS THE USER TO CHANGE THE TOUR CONTROL * 
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FACTORS FOR ALL BILLETS BY ADJUSTING A COEFFICIENT THAT IS 
APPLIED TO ALL BILLETS EQUALLY. 


DEFINITION OF VARIABLES 


ADJTCF - ADJUSTMENT TO TOUR CONTROL Be ten MONTHS ) 

INDEX - INDEX NUMBER ASSIGNED TO FMCC OR P 

Fee - MCC CODE WHICH IS MATCHED TO AN INDEX NUMBER IN THE 
MCCNUM DATA FILE 


KAEKAKEKRARRRRRKRAAKAARAKRAKRKARARAKRAKKARRARKARKRKAKARRARARAKKERKRAKAKRARKARKKAKAAR 


KKREKRRRAEKKRKKAKR DECLARE, DIMENSION, AND ENTIAL. CE KRREKKKKAAKKKKKK 


SUBROUTINE CHPLCY(ADJTCF) 

PIGIGHR TRUEEOG UPRSND ESTES? ADJICF ,REPLY1 
REAL ALPHA 

CRARSCIER RErEY2 REPLYS 


* MESSAGE TO USER IF NO ADJUSTMENT IS PRESENTLY IN =FFECT. 
IF (ADJTCF .£Q. 0) THEN 

WRITE (06, ‘oie\ 

RMAT 


FO 
cs THE PRESENT FORMULATION USES THE NORMAL TOUR CONTROL FACTOCRS' ,/ 
Peco t SuetaRINE CORPS ORDER. *,/ ) 
SUsnele (aDJICF .Li. 0) THEN 
WRITE(06,104) ADJTCF 
104 FORMAT 
Ce eer ne oeNe FORMULATION REDUCE 
Wem oes oe ye, MONTHS. 


ELSE 
WRITE (06 , 105) ADJTCF 
105 FORMAT 
C | THe PRESENT FORMULATION RAISES THE TOUR CONTROL FACTORS AT',/ 
CALL BILLETS BY '12,' MONTHS.'/) 


ENDIF 

5432 WRITE(06,133) 

133. FORMAT( 

C ' PLEASE ENTER THE DESIRED ADJUSTMENT FACTOR (IN MONTHS) ',/) 
WRITE (06,134) 

FORMAT 


134 
| *kX NOTE: YOU MUST CHOOSE A NUMBER BETWEEN -60 AND +60 ***' ,/) 
peer) READ(OS,113) REPLY1 . 
ze S FORMAT (I2) 
EP (REPLY! .LT. -60) THEN 
WRITE (06, 101) 
101 FORMAT ( ' ge aS te ERROR - NUMBER OUT OF BOUNDS Aes RT) 
STEEN 134) 
GOTO 5432 
Dion heen cy ie .Gn 60) THEN 
WRITE (6.101) 


OF Ob OR OR OR 
OO bb OF 


LCS 


i TOUR CONTROL FACTORS AT ',/ 


WRITE(06,134 
GOTO 5432 


SE 
a ee foo) Rerire 
ie 5 FORMAT (I2) 
RETURN 
ENDIF 
95 RETURN 
END 
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APPENDIX U 
CHG-DATA SAS 


PROGRAM TO UPDATE USER CONTROLLED FILES 


KAAKAKKKKKAKAKARKKAKAKKKKAKRKRRARKRARAKRKARERRKARRRERKRKARRKRKKKAAKRARKARRKKKKRARRARR 


*® 


THIS PROGRAM TAKES THE 
WHICH CONTROL THE NEXT FORMULATION OF THEVERORESie 
RE-COPIES USMC NONMSUP WHICH MAY SE DaMseme 
Brite Tabs PROGRAMS ES esUNe 
PERFORMS THE NEAT ACTION INDICATED BY Toeicae 
RESOLVING USING THE NEW WEIGHTS OR BOUNDS, OR RE=-STARTING TRE ENTGRS 
PROGRAM. 
hae OGRA 


Re eK RR RR KR RK RRR RK RR KR RK KR KR KR RR RR KR KKK KK 
INEUT 1@S—et=47 Gar 
EAP 920 on 


x 
a PROGRAM NAME: CHG-DATA SAS se : 


ree KR KR ROR ROKR RRR ROKR RRR RR RR KR KR KR KR RK K K RK RR Ke eee 


ea OVERVIEW AND PURPOSE at 

USER-INPUT CHANGES AND UPDATES THERF Ices 
ADDITIONALLY Fars 
IN THE MATCHING PROGRAM: 
THE THESIS EARGSPROGCRAM ACES 

THIS MAY INGEUBS 


ES Se 


tx | 


DOCUMENTING. 


> Se a, SP, SP, Sa Sa, A SO a, 


SO= 78052 So 7= ne OoS 
SooelwOuse! FlA zs 


Sl4=17 MCG shoe 
TDNUM 31-35 MOSNUM Me 


EDAZ $65-68 OFFTYP 370-77 COSTCTIR 57 3-co- 


BILE DEE 


Soe DEP INITION Cry ceRits a 


NEW VALUE OF ALPHA 

COST CaNRER VCORE DEX 

EAPECTED DATE OF ARRIVAL AT 2 FUTURES ee 
EAPERIENCE COE 

INDICATES IF INDIVIDUAL, 15 FIXED ORsoRea 
GRADE OR RANK 

INDEX OF THE INDIVIDUAL IN THE INVENTOR eis 
MONITORED COMMAND CODE (LOCATION) 

MILITARY OCCUPATION SrECrarrs 

FIRST ADDITIONAL MOS 

SECOND ADDITIONAL MOS 

INDEX OF THE MOS AMONG ALL OTHER MOS'S 

OFFICER TYPE IGMRSslr LESE LO!) 

NEW TCF ADJUSTMENT FACTOR 

THE PREVIOUS GRADE THAT WAS LOOKED AT IN THE LIST 
NEW UPPER BOUND ON FILL 

SEA CObE 

ARRAY VARIABLE NAME CONTAINING START & ENDING POINTS 


krreaA kek Ke we Ree KR KR K OR KR KR OK KR KR KR KR KR KR KKK Ae 
x o* * *& * FILE DEFINITION * * * * * * * *& * 


FIN] DISK UPPSSSNO DATA: 
FIN2 DISK ALPHAX DATA A ; 
SINS DISK GExDRes Dr Pee, 
FIN@ DISK TCEXADJ DATA A; 
FOQUT1L DISK UPPR=sNb 9A are 
FOUTZ DISK ALPHA DATA a ; 
FOUTS: DISK USUGRNGNUS Urey. 


4 ahaa 


a 4 


OPTIONS LINESIZE = 80; 


* 


DATA DONE; 


UPDATE UPPER BOUND ON FILL; 
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PN poe cil 
INEUT UPBOUND eo; 


IF UPBOUND = . THEN UPBOUND = 30000; 


Put UPBOUND oe 


* UPDATE ALPHA VALUE; 
DATA DTWO; 

FinPoee fing. 

INPUT ALPHA $3-6; 


DATA _NULL_; 
SET WO; 
FLAG = 1; 
IF ALPHA = '.' THEN ALPHA = '0.99'; 
IF ALPHA = ' ' THEN ALPHA = '0.99'; 
Peele erOuUra: 


PUT FLAG 1 ALPHA $3-6; 


*x REPAIR USMC NONMSUP FILE; 
DATA _NULL_ 
INFILE FINS: 
INPUT MOS $1-4 GRD $6-7 MOS2 $9-12 MOS3 $14-17 MCC $19-21 
cee comor, sco LlO S27 FIX 29 IONUM 31-35 MOSNUM 37-39 
EDA poeecoueCth ie S7O0-—jame@ostClR $79-80; 
FEEE FOUT3 
PUT MOS ‘51-4 GRD $6-7 MOS2 $9-12 MOS3 $14-17 MCC $19-21 
Pee ceo Oks co 0UDO@) 52/7 fix 29 IDNUM 31-35 MOSNUM 37-39 
Delage Oo -OomOrriir 970-77 GOSTCTR $79-80; 


* UPDATE TCF-ADJ DATA FILE; 
DATA DTHREE ; 

INFILE FIN4; 
INEUT TCFADJ oe 


DATA 
SET DTHREE; 
IF TCFADJ = '.' THEN TCFADJ = ' O° 
IF TCFADJ = ' ' THEN TCFADJ = ' Oi 
FILE FOUT4; 


PUT TCFADJ 1-5; 
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